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News and Reviews 


by Mike Dunn, Co-Editor 

I am writing this article early, since I am going on vacation, so I 
don't know all of what's in this issue. There should be the great educa- 
tion program by Paul Freeman, The Living Cell and other fine articles 
and programs. 

We have a number of new disks now ready. Ace Telecommunica- 
tions Disk #1 has KERMIT in run time versions for the 850 interface 
and modem of your choice. It also has KERMIT for the MicroBits 
Modem, and an intelligent modem program for the Atari 1030 modem. 
If you want KERMIT for the 1030 modem, let us know, and will be give 
you that version instead of the ones above. There was not enough 
room for the ACTION! source code; but if you really want it, specify 
and we will put in on the back of the disk. This disk would not have 
been possible without the aide cf MicroBits, also known as MPP (225 
Third Ave S.W., Albany, OR 97321) who put their fine programmers on 
the project to make a de-bugged run-time version of this program from 
the original one from Columbia University, written in ACTION! by 
John Pelevich, author of Chameleon. | understand his new version 4.2 
is really great and available from ANTIC! for $20. Microbits have been 
a fantastic supporter of ACE, not only helping us with programs, but 
suppling us with their Modems, interfaces, and other equipment to 
use, test, and keep. 

There are also two new Best of... disks, both with a new DOS, 
MachDOS, given to ACE by B.A.S.I.C., the very nice disk-based 
newsletter from Brooklyn, NY. Best of ACE #12 features a wonderful 
program from a German atari club called SKI that is much too long to 
put in the newsletter. Also features SNAKES and The Living CELL 
from this newsletter. Best of ACE #13 has a public domain translater 
for the XL series that is much nicer than the "Official" Atari version, 
Solitare in BASIC and in run-time C versions as well as some other 
run-time C programs by Ralph Walden, BlackHole, and programs from 
this issue. 

The ACE Business and DataBase disk will be ready when we 
receive the list program by Stan Ockers, hopefully this issue. 

Remember, any of the above are only $10 each, or $15 for 2 on a 
double sided disk. Write to Ron Ness for the above or any other disk 
you would want. 

Another supporter of ACE from the beginning has sent us their just 
released Atari version of the best selling program, The Print Shop 
(Broderbund, $45). This program will be reviewed by Larry Gold 
elsewhere, but it is really something you should consider buying if 
you have a graphic compatible printer — very easy to use, very im- 
pressive. 

We hope to have access soon to a prototype version of the Atari ST 
— if so, a complete report next issue. 


ATARIWRITER DRIVERS 


Do you want to use one of the following printers with AtariWriter? If 
so, send $10.00 to: 
Gary Furr 
Box 1073 
Mountain View, CA 94042 
Letter Quality: 


Atari 1020, 1027 Star Powertype 
Compactronic 58 Diablo 620 
BMC PB 401 Silver Reed 500-770 
DTC Style Writer Juki 6100 
Brother HR-15/25 Smith Corona TP-1 
Dot-matrix: 


Epson MX, RX, & FX 80/100 
Star Gemini 10/10X 

Star Radix 10/15 

Star SG,SR,SD - 10/15 
Axon AT-100, SLP, GP550A 
Mannesman Tally 160/180L, Spirit 80 
Okidata 80,82/83,84,92/93 
IDS 480 Microprism 

C.Itoh Prowriter 8510 
Olympia NP,RO,Comact2 
Legend 880 

CP-80 Type 1 

Riteman 

BMC BX-80 

Olivetti PR2300 (ink) 
Citizen MSP 10 

Smith Corona D-100 


VP RAMBLINGS 


It is my understanding that by the time you read this the 130XE 
computers should be in the stores. At what price your guess is as 
good as mine. | know alot of you will say so what, there is no software 
to take advantage of the extra memory. Wrong! There is some: most 
word processors should work, SynCalc, and most of the calc type pro- 
grams, and the data base programs should also work well with this 
new machine. The market should see many types of programs to will 
take advantage of the added memory even if it is bank selected. 
Within a short time many of the programs around today can be 
enhanced to use more memory. 

We have a new Bugbuster. He is DALE LUTZ, of Edmonton, Canada, 
and his phone no. is 403-688-2374. His specialty is general programm- 
ing but with special emphasis on Action! All Atari users who have pro- 
blems and are in his area you now have someone to call who can help 
you. 

Anyone who has expertise is some area of computing and wants to 
become a Bugbuster please let me know and we will put you on our 
list. 

Don't forget the contest for the best graphics which we will use for 
the newsletter and BBS. 

— Larry Gold 


THE PRINT SHOP 


Print Shop ($45, Broderbund) was first written for other computers, 
and then finally for the Atari. When | first saw it for the Apple | was 
very impressed and could't wait for it to come out for the Atari. Well, 
Broderbund should be very proud of themselves as they took a very, 
very good program and kept it that way. | was a little concerned that 
what was good on the Apple would be just so so on the Atari as has 
happend so many times in the past. This was not one of them. 

The Print Shop is the ultimate user friendly program. (If only all the 
so called user friendly programs could be like this.) Menu driven, one 
can use it the minute you boot it up provided your printer is on. While 
the documentation is excellent it really isn't needed. 

| booted the program up and as | went through the menu | made two 
birthday cards and some letterheads for some stationary without any 
trouble at all and without the aid of any instructions. Not bad for so- 
meone who can't use most programs without reading the instructions 
at least twice. 

With the program comes various types of paper. More can be had 
as Broderbund has brought out a packet with paper of different types, 
and | understand they are bringing out more fonts and graphics for the 
user. 

With this program one can make cards, letterheads, banners, etc.. 
You can let your imagination run free as to what it can do. It utilizes 
graphics made on the Koalapad, Atari Touch Tablet and the various 
graphic programs which are available. This is truly a program 
everyone can use who has a printer. Anyone from 8 to 80 will find ita 
program which is fun to use and which makes a finished product 
which is a joy to behold. 

The first menu offers the selection of the type of job to do. The next 
menu permits selection of border types (thick, thin, double, light, 
dark). Next you can add graphics (your own or "canned" ones in the 
program). Then you select layout options, including size, type of font, 
and how many you want. You then put in your custom message, letter, 
or what-have-you. Finally to the print routine and here Print Shop sup- 
ports 14 types of printers, and more | suppose when they come out. 

| can only say that here is one of the best programs written for any 
computer and one of the best programs one can own. | only wish it 
was written for the Atari first so we could have had it that much 
sooner. Broderbund is to be commended and | hope they keep up the 
good work and bring us more programs to do what they are intended 
to do and with such ease. With programs such as The Print Shop, 
computing is really a joy and also fun which makes it that much better 


for everyone. 
— Larry Gold 


PITCH RECALL 


Here is a game to test your ability to distinguish pitch of tones. 
Either one or two people may play. Use SELECT to toggle between 
one or two players at the beginning of the game. The difficulty for 
each player may be set by pressing the option key. Player 1 uses a 
joystick in port 1 and player 2 one in port 2. You will be asked to 
memorize a tone and then recall it by using the joystick to match the 
tone you heard. A response coming within certain limits of the 
original tone will be rewarded by adding a note to your score. Ten 
notes wins the game. The game can be restarted by pressing START 
while the tones are alternating at the end of a turn. 

— Stan Ockers 


TWO 


BUMPAS REVIEWS 


KAMPFGRUPPE ($60, SSI, 883 Stierlin Rd. Bldg A-200, Mountain 
View, CA 94043) is the latest strategy game by Gary Grigsby. This 
2-disk game simulates tactical combat between Russia and Germany 
from 1941 to 1945. Maneuver elements are platoons and batteries. 
One or two may play, or you may select the Atari to play both sides. 

The Game disk provides 4 historical scenarios, set up and ready to 
play: Meeting Engagement East of Bryansk (7-7-42); Stalingrad 
(12-17-42); Kiev (11-3-43); and, Berlin (3-22-45). The last three scenarios 
are all assaults against prepared positions. Don't be disappointed if 
the game is not much of a challenge for solitaire play. My first two 
games were the Stalingrad scenario, and | scored a substantive vic- 
tory on each side. 

Mr. Grigsby has contributed a great deal of imagination and creativi- 
ty to produce a strategy game with even more flexibility than the tradi- 
tional paper board game. In the 2-player mode, this game really 
shines. 

The opening menu permits a handicap level for the current game. In 
addition to the 4 prepared scenarios there is the choice to build your 
own. This is the most powerful feature of this game. Its implementa- 
tion here is the most elegant and powerful I’ve seen for any computer. 
If you choose, the Atari will draw the map, select the forces for the 
two sides, and deploy them for you. You can set up an entirely original 
scenario in a matter of seconds. 

If you want to take a little longer, you may deploy your own forces. 
A little more time and you may select the forces used. First you select 
either a Tank or Infantry type force (Russian); or, Panzer, Motorized or 
Infantry (German). Then you choose which battalions, companies and 
detachments you will have from a screen menu. Then when you 
deploy, you may substitute armored vehicles from a data card (which 
comes with the game) for those vehicles assigned to the formations 
you chose. For instance, if the tank company you chose contains 
BT-7s, you can substitute T34s. You have 8 time periods from which to 
choose, and you cannot select a vehicle which was not available in 
the time period selected. 

If you really want to get your creative juices flowing, you can design 
the map upon which you will play. The Atari will draw the map, and 
will include a river if you like. It will also ask you to control the quanti- 
ty of woods and broken terrain on the map. When you deploy, you may 
press “U” on the keyboard. This act opens the door to selecting from 
among 59 terrain types to place in the space under the cursor. Possi- 
ble terrain includes: clear, road, town, woods, broken, slope, 
road/slope, river, bridge, and ford. These terrain types may be placed 
upon 7 different topographical levels (the line-of-sight rules are very 
sophisticated). The map is a 60x60 grid scrolling over approximately 
18 screens, so creating a map is a big job. Each space is meant to 
represent 200 yards square. But you may make it just as you want it! 
The player control over this game is fantastic, and makes it my 
favorite game. 

Players also choose the scenario type from among the following 
choices: Pursuit, Assault, or Meeting Engagement. And you may 
choose the size of the battle: Large, or Small. Large battles have twice 
as many units as Small ones. | 

In play, the screen shows to each player only those enemy units 
visible to his units. There is a View command which will paint in 
orange all the spaces a unit can see. Another command will list each 
target a unit can see. 

Units may be set in “close combat mode”. These units will move in- 
to the space of a firing enemy unit within 3 spaces before continuing 
to its commanded objective. 

All commands are by keyboard, and certain commands may be 
given to all units in a formation. Trucks and halftracks provide 
transportation to guns, mortars and troops. Additionally, infantry may 
become “Tank Marines” and ride on tanks. The Atari keeps track of 
command control, and you can trace the chain of command for any 
unit by pressing “H” until the command HQ is reached. Units do not 
execute commands immediately — there is always some delay. Loss 
of command control extends the delay. | 

Combat execution takes into account the aspect of the armored 
target (front armor is harder to penetrate). Other elements in the com- 
bat algorithms include: weapon accuracy, number of times fired at 
target, defensive terrain, target movement, target silhouette, weapon 
penetration, number of weapons shooting at same target, and the sup- 
pression level of the target. Ammunition is expended each turn, and | 
always seem to run out of it before the scenario is over. But armored 
vechicles may still overrun targets without ammunition. It's not as ef- 
fective as with ammunition, but hey! If it's all you've got, you use it. 

The Atari scores the game. You might achieve a draw, or a marginal, 
substantive, or decisive victory. 

The 24 pages of documentation include maps and descriptions of 
the 4 scenarios. There are 5 pages of boxes containing capsule 
weapon descriptions and silhouettes, and a page of strategy notes. 
There is also a BASIC program listing with which you may test out 
direct fire probabilities against armored targets. Finally, there is a 
5-page combat short story. 


This game will probably have more play value in it than any previous 
strategy game. You probably will not live long enough to play all the 
possible combinations of scenarios possible with this game. Kamp- 
fgruppe is getting very close to a strategy game generator for those 
with the creativity to develop new games but who lack the programm- 
ing skill to translate their ideas to bits and bytes. | hated to put aside 
Gary Grigsby's War in Russia game, but this one has to be played. 

MOSAIC + SYN-APPS 

A user, Charlie Cottle, reports to me he has a 165k data buffer 
available when he uses SynCalc. He has 184k RAM available when he 
uses SynFile +. Is he running these programs on an IBM? Nope, he 
has an Atari 800 with three 64k Mosaic RAM boards. If you have an 
800, and are thinking maybe you want to have the extra memory of a 
130XE machine, you can get 3 Mosaic boards and have 64k more than 
an XE. 

TRIVIA QUEST ($40, Royal Software) is a 4-disk social game for 
those who want more than plain-vanilla trivia for 4 players, each with a 
joystick. XE and XL owners are limited to 2 players. If you also want 
(and expect!) excellent animated graphics and a little arcade-style ac- 
tion, then this package from our friends here in Eugene is for you. 

The hand of John Atack is obvious in the high-resolution graphics 
and animation. You know him from Quasimoto. The graphic design 
shows a trail of boxes winding through a terrain of woods, mountains, 
rivers and castles scrolling over several screens. 

Each player gets individual questions to answer. The quicker the 
answer the more food is gained. Food is important because with more 
food one can travel further toward the goal of "Trivia Quest”. This goal 
is to march your questing party of three characters (Prince, Knight, 
and Page) around the board and back to the castle again. Each box 
upon which you stop may determine the type of question one is ask- 
ed. Royal Software provided us only with a dealer demo disk, so | can- 
not comment on the quality of the questions. And while there are 
categories, the players do not control them. 

Occasionally a box will contain a dragon. If you defeat the dragon 
with arrows, you win all his gold. If the dragon defeats you, it will take 
some of your gold. Gold is also won by answering questions. The 
higher the difficulty, the more gold is in the prize. You need gold to 
outfit your expedition — the Knight and Prince require more gold to 
outfit than the Page. 

You can challenge another player to a question-off if you press the 
joystick trigger as you pass through a space containing a character, 
you may both go to a question screen where only the first one answer- 
ing wins the gold and food. Answers are chosen by moving the 
joystick among 4 choices for each quesion. The response is very fast. 

Royal Software is now preparing a utility disk which will permit you 
to create and edit your own-design question disks. This can be a 
valuable home educational tool — especially for those who may be 
motivated by video games. They are promising this disk in 10 days, so 
it should be ready by the time you read this. 

— Jim Bumpas 


BIT TWIDDLING 


(reprint: StarFleet, Feb. 1985) 

In the past, | have been frequently exasperated by the lack of BASIC 
commands to do bit manipulations. The normal BASIC logical opera- 
tions return a one or zero (true or false). Therefore, you usually test a 
variable with a logical operation, then use arithmetic operations to set 
or mask specific bits you wish to change. 

Aside from being slow, the code tends to be very cryptic. Three 
months later, you may end up rewriting the whole program rather than 
try to figure out what you did. 

The following routines are a solution to the problem. They allow 
true, direct bit manipulation of 16 bit integers by means of a single 
USR call. the AND and OR allow bit masking and the EXCLUSIVE OR 
may be used for certain types of encrypting schemes. 

The necessary initialization sections are included in the main pro- 
gram and called to set up a small machine language routine which is 
stored in a string variable. The machine language routine is called by 
the main program as shown in the example. Two variables (arguments) 
ARG1 and ARG2 are passed within the USR command. The USR com- 
mand is made equal to the result variable. The string varialbes have 
been given names which identify the purpose of the operation (e.g., 
LAND = logical AND) to make debugging easier. | hope these are as 
useful to you as they have been to me. 

— Mike Cunningham 


THREE 


BIG is a PILOT program written as a learning game for handicapped 
children. It is designed to teach size value judgments and improve 
basic computer literacy. The child uses a number select menu to pick 
out a program or (if successful) a game. It only requires the numbers 
1-6 be inputted and return pressed for each response. 

WHY BOTHER WITH THE HANDICAPPED? 

Attitudes and preconceived notions have lessened the impact of 
one of the most rewarding uses of the micro computer — helping 
mentally handicapped children and adults. As an instructor of 
moderate to profoundly retarded children | have found it necessary to 
create useful programs. 

Chosen because of its easy to use personality, the Atari computer 
and the PILOT language have made it easier to write software. Many 
publishers of educational materials claim their materials work with 
our students, but this is NOT true. Watered down public school 
special education lessons are not effective for our disabled learners. 
With regular materials such as books, puzzles, and records we are at 
least able to use and reuse the useful parts. Most commercial soft- 
ware is either protected or too complex to allow the teacher to modify 
it for the handicapped student. 

Our handicapped learners are not as different as some people 
believe. They do need more repetition and easier levels to absorb a 
new concept or activity. Daily use of the computer for 2 years has 
shown us transfer (relating something learned in one area to another 
area) does occur. There are many myths about the retarded, but two 
major points are real. Retardation does not go away. 

It is a life-long condition. The child can learn, but only with some 
special help. The computer can continue as a learning aid not only for 
children but for adults of any age. ‘ 

Retarded individuals can and do live useful and productive lives 
with just a little assistance. In our county, a sheltered workshop 
works hand-in-hand with local industries providing gainful employ- 
ment through subcontract work. A group of individuals who could 
have been inmates of institutions at the taxpayers’ expense are now 
productive taxpayers themselves. 

A DIFFERENT HANDICAP 

The child with a mental handicap needs individualized programs to 
be able to use the computer appropriately. The range of intellect ina 
single classromm of students (aged 13-18, for example) is as varied as 
might be found in a one room schoolhouse serving all 12 grades. We 
also have a significant number of students with no speech or multiple 
difficulties such as cerebral palsy. 

We began using the computer with an easy to use commercial pro- 
gram for pre-schoolers using a joystick and only requiring the mat- 
ching of shapes and letters. Soon most of our children were using the 
keyboard. The Atari 400 provides a nice input device when modified by 
placing paper over the keys not wanted. Learning to use the computer 
was easy. The randomness of the required responses keep the 
students from memorizing the answers. Because of the need for 
repetition and he need for individualized attention (especially feed- 
. back for responses), many special educators who have never used a 
computer are using techniques easily done by the computer. 

THE PROGRAM 

The PILOT program BIG will be interesting to preschoolers as a 
game. It uses several features | feel are necessary for educational 
software: 

1. Only correct responses are rewarded. No negative noise or action 
occurs upon an incorrect response. Every correct response has a tiny 
reward. 

2. The required responses are understood and possible. Success 
needs to occur before learning can happen. 

3. Learning steps are small enough to be possible and large enough 
to hold interest. For our special learners, the steps are slower and 
more repetitive but they are still there. 

4. Fun may be an essential ingredient. The enthusiasm of the in- 
dividual towards an activity often determines success. While all 
lessons cannot be fun, they can at least be interesting and enjoyable. 

5. This program, although simple in concept, not only provides prac- 
tice in size and value judgments, but also improves literacy by using a 
number select menu to allow the student (or teacher) to pick the pro- 
gram and also (if successful) to choose the reward. 

The first program module, Biggest, uses the turtle to draw four une- 
qual red vertical lines. The text window displays the numbers 1 to 4 
under the lines from left to right. The student picks out the correct 
line, touches the line on the screen and bring the finger down to the 
number underneath. The number is then pressed on the keyboard. 
Finally, after checking to see if the proper number is in the window, 
the return key is pressed. 

The second lesson module, Bigger, uses the turtle to draw two 
horizontal yellow lines of unequal length. The student is requested to 
press the correct number key. The student must then press the return 
key. 


Measure, the fifth module, has the turtle draw one horizontal line at 
random from 1 to 6 inches long. The student places a homemade 
plastic coated paper ruler with large one inch markings under the line 
of the screen. Sine the object of the program is to provide successful 
drill, the line always starts at the same place, but jumps randomly to 
one of 5 lengths to insure the child has practice positioning the ruler. 
More advanced students can also use this program to guess the size. 

A short pleasant sound occurs upon a correct response. Upon an in- 
correct response, the prompt “try again" appears. | do not want to 
reinforce the incorrect response, but | need some indicator the 
answer was wrong. A counter in the program records all incorrect 
responses. When the student is finished, the score is displayed. Even 
though there is a short sound reward for each correct response and a 
score printout at the end of ten responses, a special reward appears 
for 10 correct responses ina row. The successful student is presented 
with a screen menu of reward choices. The selection includes a draw- 
ing of a picture and drawing a variety of shapes and colors according 
to the student’s directions to the turtle. 

I will send you a copy of this program on your tape or disk for $3 
and a SASE. 

— Carl Schwartz 
5607 Scribner Road 
Pierpont, OH 44082 


LABELS UPDATE 


I find it's easier to remove the tractor feed from the Gemini 10X and 
print labels directly on individual envelopes. To help in this | made the 
following changes to the program: 

1) add line 401: 401 POSITION 3,18:? “ HOW MANY BLANKS 
BEFORE LABEL “:INPUT MARG 

2) change line 406: 406 ? #2;BLKS$(1,MARG); 

3) change the ? #2;” ” in line 412 to ? #2;BLK$(1,MARG); 

Answer the number of blanks question with: 

A) 6 for labels 

B) 24 for regular envelopes 

C) about 40 for business size envelopes 

I also find the program useful for printing disk labels. If you are set- 
ting up the program in anticipation of printing lists, | find | should 
have filled the index with the last letter of the alphabet rather than 
with X’s ( the small letter ‘z’). The changes will be in lines 5010 and 
5020: 

1) in 5010 XSS$ = 2” 

2) in 5020 FREX$ = "222222" 

— Stan Ockers 


BLACKBIRD 


BLACKBIRD is a space game which includes fast action, color, 
sound, and nine different screens! In the game, you must manuever 
your spacecraft through a winding series of caverns, avoiding the 
deadly fire of surface-to-air missiles. You may fight back by dropping 
photon bombs (press the trigger). You accumulate points by hitting 
the missile launchers and finishing each screen. If you make it to the 
last screen, you are declared a winner, but chances are you won't 
make it that far! 

The animation in BLACKBIRD is fast and smooth, even though the 
program is written completely in BASIC. To achieve the graphics in 
BLACKBIRD, | used a number of advanced techniques, such as 
Player/Missiles and a custom character set. In order to have smooth 
vertical movement of the player/missiles, strings are used. In many 
cases, it is better to uses strings (instead of machine-language 
Subroutines) to move P/M graphics. The string handling functions 
which can be used in BASIC allow the user to move large areas of 
memory in a short time, and this speed can be used to great effect 
with player/missiles. 

The main screen display is in graphics mode 1 (this saves a lot of 
memory). Most of the characters of the alphabet were redefined to 
form sections of the cave. By using character graphics instead of 
mode 7 or 7.5, it is possible to draw a new screen in a very short time. 
BLACKBIRD requires at least 40K and BASIC. Grab a joystick and 
have fun! 

— Paul Freeman 


FOUR 


2 REM լնն 

3 REM [IFUVWGTTYUYU 

4 REM HETELE | 

48 CLR :DEG :POKE 82,8:GRAPHICS 7:5ETC 

OLOR 4,8,8:5ETCOLOR 2,8,4:SETCOLOR 1,1 

3,18:5ETCOLOR 8,2,8:PQKE 752,1 

58 CH-88:CU-52:DIM BOC14) , DAS (45) , ANS C 

5) P 3 

78 COLOR I:PLOT 6,@:DRAWTO 152,80:COLOR 
1:PLOT 6,2:DRANTO 152,2:DRANTO 152,78 
:DRANTO 6,78:DRAHTO 6,2 

75 FOR A=8 TO 158 STEP 2:PLOT A,3:PLOT 
A,77:PLOT A,4:PLOT &,76:NEXT à 

77 FOR A=4 TO 76 STEP 2:PLOT 7,A:PLOT 
151,4:ՔԼ01 8,A:PLOT 150,A:NEXT A 

90 RESTORE :COLOR Z:FOR 8-18 TO 41:REA 
b B:PLOT (8@-B)-B¥@.5,a:DRANTO (80+8)+ 
BXO.5,A:PLOT (80-B)-BX8.5,78-A 

96 DRAWTO (804B)48%O.5,78-A:50UND 8,98 
-8*2,18,2:NEHT A:SOUND 0,8,0,8 

188 DATA 5,18,12,15,16,18,19,28,21,72, 
24,25,25,26,26,27,28,28,29,29,30,38,31 
,31,32,32,32,32,33,33,33,33 

118 RESTORE :COLOR 1:Բ0Ք 8-18 TO 41:RE 
AD B:PLOT (78-8)-B0.5,A:PLOT (79-B)-B 
88,5,8:ՔԼ01 (8248148«8.5,8 

120 PLOT (78-8)-B*0.5,78-A:PLOT (824B) 
4828,5,78-Ո:ՔԼ01 (81:8) 4BX8.5,0:PLOT ( 
73-B1-BX8.5,78-0:PLOT (81tB)*BX8.5,78- 
A:WEXT 0 

158 COLOR 3:FOR 4-58 TO 43:READ B:PLOT 
38-BA:DRAMTO 30+B,A:PLOT 8@-B,86-A:D 
RANTO 80+B,86-A:NEKT à 

148 DATA 1,3,4,4,5,5 

158 RESTORE 148:COLOR @:FOR A=38 TO 43 
:READ B:PLOT 79-B,A:PLOT 8148,8:ՔԼ01 7 

9-B,86-A:PLOT 81+B,86-A:NEXT A 

168 COLOR 1:PLOT 68, 3@:DRANTO 66,22:DR 

ANTO 63,21:DRANTO 58,29: DRANTO 68,58:5 

LOT 68,27:DRAHTO 63,28:PLOT 62,24 

165 DRAMTO 65,25 —— 

178 PLOT 95,25:DRANTO 99,33:DRAMTO 182 
,S2:bRAHTO 39,25:DRAWTO 35,25:ՔԼ01 99, 
25:DRAHTO 95,26 

188 COLOR J:PLOT 56,50:DRAMTO 58,56:DR 
ANTO 64,58:DRAMTO 78,57:PLOT 58,52:PLO 
T 56,54:PLOT 64,59:ՔԼ01 68,56 

288 PLOT 85,53:DRAMNTO 84,55:DRANTO 86, 
58:DRANTO 92,62:PLOT 88,52:DRANTO 87,5 
4:PLOT 89,56:DRANTO 94,58 

218 PLOT 90,52:PLOT 31,52:PLOT 90,53:P 
LOT 31,55:ՔԼ01 94,54:PLOT 95,54:PLOT 9 
4,55:PLOT 95,55 

23872 -- BY PALL FRE EH | 


THE CELL 


BY PAUL FREEMAN 


` 


ME" 
248 ? " 
tion. 
268 COLOR @:FOR 6-8 TO 6:PLOT 55,4:DRAÀ 
WTO 105,A:NEXT ñ 
278 COLOR 1:PLOT 59,@:DRANTO 63,8: PLOT 
61,1:DRAWTO 61,6:PLOT 65,0:DRANTO 65, 
6:PLOT 66,3:DRANTO 68,3:PLOT 69,8 
288 DRANTO 69,6:PLOT 75,8:DRAMTO 71,8: 
DRANTO 71,6:DRAMTO 75,6:PLOT 72,1:DRAM 
TO 74,1 | 
298 PLOT 83,0:DRAMTO 79,8:DRAMTO 79,6: 
DRANTO 83,6:PLOT 89,0:DRAMTO 85,8:DRAH 
TO 85,6:DRAMTO 89,6:PLOT 86,3 
300 DRAMTO 88,3:PLOT 91,0:DRAMTO 91,6: 
DRANTO 95,6:PLOT 97,0:DRAMTO 97,6:DRAM 
TO 181,6 ea 
518 FÜR 8-15 TO 8 STEP -1:5ETCOLOR 4,8 
A:FOR Wi TO 10:NEXT M:NEMT A | 
128 COLOR Z:RESTORE 350:FOR 4-8 TO 16: 
READ B,C:PLOT B,C:FOR 0-8 TO 6:READ B, 
C:IF B=-1 OR Շ--1 THEM NEKT 8:6010 481 
338 DRANTO B,C:MEKT D:WEXT 8:6010 461 
358 DATA 40,74,40,70,42,78,42,72,41,72 
;71,-1,44,74,44,78,46,78,46,72,44,72,4 
6,74,-1,-1,58,74,48,74,48,72,49,72 
368 DATA 48,72,48,78,58,70,-1,-1,52,74 
,54,74,54,72,52,72,52,70,54,78,-1,-1,5 
6,74,58,74,58,72,56,72,56,78,58, 70 
378 DATA -1,-1,62,74,64,74,64,72,62,72 
,62,78,64,78,-1,-1,67,74,67,78,68,78,6 
6,78,-1,-1,78,74,78,78,72,78,72,74 
380 DATA 72,72,71,72,-1,-1,74,74,74,78 
,76,70,76,72,74,72,76,74,-1,-1,79,74,7 
9,70,80,70,78,70,-1,-1,84,74,84,72 
390 DATA 85,72,84,72,84,798,86,78,-1,-1 


Move Joystick To Make Selec 


nod 


'188,74,88,70,90,70,90,74,88,74,-1,-1,9 


2,74,92,78,94,78,94,72,92,72,94,74 

395 DATA -1,-1,108,74,188,78,98,70,938, 
74,181,74,-1,-1,103,70,107,74,185,74,1 
85,78,-1,-1,107,74,187,78,-1,-1 

396 DATA 189,78,112,78,182,74,112,74,- 
1,-1 

488 REM 

481 OST=ST:ST=STICK(Ø) 

482 COLOR 2:PLOT CH,CU:PLOT CH*1,CU:PL 
OT CH,CU-1:PLOT CH41,CU-1 

403 IF PEEK(53279)-6 THEM GOTO 7000 
485 IF 5T-14 THEN CH-88:CU-25 

410 IF 5T-6 THEN CH-185:CU-26 

415 IF 5T-7 THEN CH-128:CU-48 

428 IF ST=5 THEN CH-188:CU-52 

425 IF 5T-13 THEM CH=80:CV=52 

430 IF ST=9 THEN CH-72:CU-54 


FIVE 


538 74 


435 IF 51-11 THEN CH-65:0U-58 

448 IF 5T-18 THEN CH-66:CU-38 

458 IF 5TO 15 THEN SOUND 0, CCHtCUI/2,1 
8,5 

455 IF 5T-15 THEN SOUND 8,8,8,8 

588 IF CO(5 THEM COLOR 8:PLOT CH,CU:PL 
OT CHH1,CV:PLOT CH,CU-1:PLOT CH*1,CU-1 
585 IF C0)=5 THEN COLOR 2:PLOT CH,CU:P 
LOT CH*1,CU:PLOT CH,CU-1:PLOT CH*1,CU- 
i ; j 
518 CO-CO*1:IF C0)i@ THEN CO-0 

528 IF 051-251 THEN GOTO 538 

525 IF 51-15 THEN GOTO 598 

Move Joystick To Make Select 





ion. 

548 IF 51-14 THEN ? " 
PLASM" 

545 IF 5T-6 THEM ? " 
IOLE" 

558 IF 5127 THEN ? " 
EMBRANE" 

555 IF ST-5 THEN ? " 
BODY" | 
568 IF 51-15 THEM ? " ի 
UCLEUS" 

565 IF ST-9 OR 51-11 THEM ? " 
ENDOPLASMIC RETICULUM" 

575 IF ST-18 THEM ? " 
HONDRIA" 

Meme = Press Button To View select, 

ւօր, og 

598 IF STRIG(8)-1 THEN GOTO 408 

688 COLOR 8:FOR A=1@ TO 74:PLOT 25,4:D 
RAWTO 135,A:50UND 0,4,10,3:NEKT Å 

628 IF CH-88 AND CU-52 THEM GOSUB 4000 
638 IF CH=105 AND CU-26 THEN GOSUB 430 
8 

648 IF CH-66 AND CY=38 THEM GOSUB 4688 
658 IF CH-188 AND CU-52 THEN GOSUB 488 
8 

668 IF (CH-72 AMD CU-54) OR (CH-65 AND 
CU-58) THEM 60518 5888 

678 IF CH-88 AND CU-25 THEN GOSUB 5200 
688 IF CH-128 AND CU-48 THEN GOSUB 548 
8 

788 6010 98 

4000 REM 

4882 RESTORE :COLOR Z:FOR A=10 TO 41:R 

EAD B:PLOT 88-B,4:DRAMTO 88:8,4:PLOT 8 

8-B,78-0:DRAMTO 80+8,78-4 

4003 SOUND 0,90-4X2,18,1:NEKT A:S0UND 

8,0,8,8 

4010 RESTORE :COLOR 1:FOR A-18 TO 41:R 

EAD B:PLOT 78-B,A:PLOT 79-B,A:PLOT 81: 


CYTO 
CENTR 
CELL M 


GOLGI 


MITOC 


THE CELL. CON'T 


S,A:PLOT 82+B,A:PLOT 78-8,78-4 

4815 PLOT 79-B,78-A:PLOT 81Է8,78-8:ՔԼ0 
T 8248,78-A:MEKT ñ 

4028 RESTORE 148:COLOR 2:FOR 4-42 TO 4 
7:READ B:PLOT 80-BA:DRAMTO 88*B,AÀ:PLO 
T 88-B,94-A: DRAHTO 8048,94-A:NMEKT Å 
4038 RESTORE 148:COLOR 8:FOR 8-42 TO 4 
7:READ B:PLOT 79-BA:PLOT 81*B,0:PLOT 
79-B,94-A:PLOT 814+8,94-A:NERT Å 

4848 COLOR i:PLOT 79,47:DRAWTO 81,47:P 
LOT 79,48:DRAMTO 81,48:PLOT 88,46:PLOT 
80,49 

4058 FOR A=1 TO 58:B-INT(CGB*XRND (12) *58 
:C-INT C6BXRND C3) * 18:LOCATE 8,Ը,0 

4868 IF D-3 THEN GOTO 4078 

4065 NEXT A:GOTO 4828 

4878 COLOR 1:PLOT B,C:PLOT B*1,C:PLOT 
B,Ct1:PLOT B*1,C*1:NEXT ñ 

4898 ? © The NUCLEUS is a membrane bo 

und";? " structure which controls the 

Ա) 

4095 2 " activities of the cell. It c 
ontains ":FOR Wi TO 1884*DEMK688:NEXT 
H 

4188 IF STRIG(8)-1 AND DEM-0 THEN 6070 
4188 
4118 ? " 
the";? " 
cleus" 
4115 2 '" usually contains two smaller 
bodies":FOR H-1 TO 180*DEMMGBB;NEKT H 
4120 IF 3TRIGCO)-1 AND DEM-@ THEN GOTO 
4128 

4138 ? " called nucleoli,that have ri 
bonuclIeic":? " acid (RNA.'';? 

4135 FOR Wi TO 188*DEMX688:NEMT H 
4148 IF STRIGC8G)-1 AND DEM-B THEN GOTO 
4148 

4158 COLOR B:FOR A-8 TO 72:ՔԼ01 40,4:D 
RANTO 170,A:50UND 8,5,18,3: NEXT A: SOUN 
0 2,8,8,8 

4168 IF DEM-i THEN GOTO 15818 

4178 RETURN 

4388 REM 

4182 SOUND 8,8,80,80:RESTORE 4318:COLOR 
1:PLOT 28,35:FOR C-35 TO 65:READ B:DRÀ 
WTO Bt28,C:NEXT C 

4518 BATA 8,8,8,8,0,0,8,8,8,1,1,1,2,2, 
$,3,4,4,5,5,6,7,8,9,10,11,12,13,15,17, 
28,21 

4328 RESTORE 4318:PLOT 188,15:FO0R C-15 
TO 45:READ B:PLOT B*188,C:NEHT Ը 

4338 RESTORE 4318:PLOT 121,45:Է08 C-45 
TO 15 STEP -1:READ B:DRAHTO 121-B.C:DP 


the chromosomes, which carry 
genetic information. The nu 


RANTO 122-B,C:WEXT C 

4340 RESTORE 4310:FOR C-35 TO 65 STEP 

Z:COLOR L:READ B:PLOT B*21,C:DRAHWTO Bt 

99,C-28:COLOR F:READ B:PLOT B*21,C*1í 

4345 DRAMTO B*992,C-12:50UND 8,117-C,18 

,SINEXT C:50UND 0,0,0,8 

4400 ? " Two CENTRIOLES are found in 

311":2 " animal cells. Each centriole 
is a" 

4405 ? " cylinder of nine sets of thr 

ee":FOR Wi TO 1880*DEMK*G88:NEMT H 

4418 IF 5TRIGCO)-1 AND DEM-8 THEN GOTO 
4418 

4428 ? " microtubules parallel to the 
":2" cylindrical axis. They control 
the" 

4425 7 " activities of the mitotic sp 
indle":FOR W-i TO 188*DEMX688:NEHT H 
4418 IF STRIG(8)-1 AND DEM-8 THEN GOTO 
4418 

4440 ? " and serve as a base for the 
cilia":? " and flagella":? :FOR W-1i T 
0 i88tDEMKX688: NEXT M 

4458 IF STRIGCO)-1 AND DEM-8 THEN GOTO 
4458 

4468 COLOR @:FOR 6-8 TO 72:PLOT 15,4:D 
RANTO 145,4:50UND 0,4,18,3:NEKT A:50UM 
b 8,8,0,8 

4478 IF DEM-1 THEN GOTO 15818 

4488 RETURN 

4688 REM 

4682 COLOR 2:RESTORE 4618:PLOT 40,60:F 
OR 4-8 TO 9:READ B,C:DRAHTO B,C:MEKT ñ 
4618 DATA 46,78,68,68,86,58,112,32,128 
,28,112,18,182,12,74,28,56,316,48,68 
4615 SOUND 0,8,6,8 

4628 COLOR 2:RESTORE 4618:PLOT 48,51:F 
QR A-8 TO 9:READ B,C:DRAMTO B,C+L:NEKT 
ñ 

4618 RESTORE 4635:COLOR Z;PL0T 41,61:F 
OR A-8 TO J READ B,C:PRAHTO B,C:NENT Å 
4635 DATA 46,68,68,66,86,56,112,58,113 
,28,111,12,181,14,74,18,57,:18,42,68 
4648 COLOR X:RESTORE 4658:FOR 4-8 TO 3 
:READ B,C,D,E: PLOT B,C:DRANTO B,E:MEKT 


4658 DATA 182,15,118,22,32,21,188,28,8 
6,25,186,38,82,27,90,48,76,35,88,46,66 
,35,98,52,64,431,86,58 

4655 DATA 58,45,66,54,58,49,68,68,46,5 
5,68,68 

4668 COLOR 1:RESTORE 4678:FO0R A-@ TO 7 
:READ B,C:PLOT B,C:PLOT B,C*1:PLOT 841 
,UIPLOT Bti,Cti:NEXT ñ 


SIX 


4678 DATA 182,18,184,32,88,38,92,46,78 
,40,74,54,58,48,52,66 

4688 FOR A=-68 TO 28 STEP -1:S50UND 8,8, 
18,3:NEKT A:SOUND 8,8,8,8 

4698 ? " MITOCHONRIA are present in t 
he":? " cytoplasms of all aerobic cel 
15 è Ա) 

4788 ? " They consist of an outer mem 
brane and":FOR Wi TO 188f*DEMKG8B8:NEHT 
H 

4705 IF 5TRIGCO)-1 AND DEM-8 THEN GOTO 
4705 

4718 ? " 
bends";? " 
The" 

4728 ? " high energy molecule adenosi 
ne":FOR H-1 TO 188*DEMKGBB:NEMT H 
4725 IF STRIG(Ø)=1 AND DEM-B THEN GOTO 
4725 
4718 ? " 
Å 9. 

nner” 

4748 ? " membrane of the mitochonria. 

"FOR MIA TO 188*DEM*X688:NEHT H 

4745 IF STRIGC8)-1 AMD DEM-8 THEN GOTO 
4745 

4758 COLOR 8:FO0R 4-8 TO 72:PLOT 48,8:0 

RAHTO 128,4:50UND 8,45,18, 3: NEXT A:SOUN 

D 8,8,0,8 

4768 IF DEM-1 THEN GOTO 15818 

4778 RETURN 

4888 REM 

4882 COLOR J:RESTORE 4818:FO0R 8-8 TO 6 

:READ B,C,D,E,F,G:PLOT B,C:DRAMTO D,E: 

PRAHTO F,G:WEXT ñ 

4818 DATA 312,38,680,22,88,18,16,58,54,3 

4,78,24,48,46,72,38,86, 30,54, 48, 78,36, 

92,44,92,36,1808,46,104,68, 74,22 

4815 DATA 92,26,186,46,84,18,184,28,12 

p,58 

4618 SOUND 8,0,8,0 

4828 COLOR I:RESTORE 4810:FOR Բ-8 TO 6 

:READ B,C,D,E,F,G:PLOT B,C+1:DRAMTO D, 

Et+i:DRAWTO F,G*ti1:NEHT Å 

4818 COLOR 2:RESTORE 4848:FOR A-8 TO 3 

:READ B,C:PLOT B,C:DRAWTO Bt2,C;PLOT B 

-1,Cti:PRAHTO B+I,C+1:PLOT B,C*2 

4835 DRAMTO B*2,C*2;PLOT B*1,C-1:PLOT 

B+1,C+3:MEKT A 

1848 DATA 56,56,88,48,92,62,78,58 

4388 ? " GOLGI BODIES are cytoplasmic 

ՉԻ organelles which consist of a s 

tack" 

4318 ? H 


an inner membrane with many 
for a higher surface area. 


triphosphate (ATP) is formed 
structures attached to the i 


0f flattened tubules surroun 


THE CELL CON'T 


ded by":FOR Wi TO 100+DEM*6BØ:NEXT H 

1915 IF STRIG(COJ-1 AND DEM-8 THEN GOTO 
4915 

4920 ? " spherical objects. The golgi 
bodies":? " have the primary role of 
complexing" 

4938 ? " proteins formed in the endop 

lasmic": FOR Hi TO 1Ø0+DEMMGBDINEKT H 

4935 IF STRIS(0)-1 AND DEM-8 THEN GOTO 
4935 

4940 2 " 

es.%37 37 

4950 FOR H-1 TO 100+DEMMODBINEKT H 

4955 IF STRIG(C8)-1 AND DEM-8 THEN GOTO 
4955 

4368 COLOR 8:FOR A-8 TO 72:PLOT 38,4:D 

RANTO 178,4:50UND 8,4,18,3:NEMT A:SOUN 

ը 8,8,8,8 

4978 IF DEM-1 THEN GOTO 15818 

4988 RETURN 

5898 REM [LH 

5882 SOUND 8,8,80,8:COLOR 3:RESTORE 581 

8:PLOT 18,24:FOR 8-8 TO 7:READ B,C:DRÀ 

KTO B,C:NEXT Å 

5818 DATA 58,46,32,62,126,68,126,64,32 

,97,58,52,28,28,18,24 

5020 RESTORE 5818:PLOT 18,18:FüR A-@ T 

Ü 7:READ B,C:DRANTO B/1.3+16,C/1.3-8:M 

EXT Å 

S8i8 RESTORE 5848:COLOR 1:FOR 4-8 TO 1 
"READ B,C:PLOT B,C:PLOT Bti,C:PLOT B, 

Cti:PLOT Bti,Cti: NEXT ñ 

5848 DATA 24,52,30,30,36,42,44,48,48,5 

2,50,44,64,58,62,58,76,62,76,54, 96,68, 

88,58,112,66,180,68,122,66,128,58 

5858 RESTORE 5848:COLOR 1:FOR Բ-8 TO 1 

S:READ B,C:B-B/1.3t16:C-C/1.3-8;PLOT B 

,CiPLOT Bti,C:PLOT B,Cti 

5855 PLOT Bti,Cti: NEXT à 

5868 FOR A=88 TO ið STEP -1:S0UND 6,8, 

10,3: NEXT A:SOUND 8,0,8,8 

5878 2 " ENDOPLASMIC RETICULUM are me 

Mbranes":7 " which can be covered wit 

h" 

5888 ? " ribosomes, Proteins that are 
ú: FOR Wi TO 1881DEMKX6BB:NEXT H 

5885 IF STRIG(8)-1 AND DEM-B THEM GOTO 
5885 

5898 ? " 
pass";? " 
for" 

5100 ? " later use. SMOOTH ENDOPLASMI 
C":FOR MEL TO 188*DEMXGBB;NEXT H 

5185 IF STRIG(CO)-1 AND DEM-8 THEN GOTO 


reticulum with other molecul 


synthesized by the ribosomes 
into the ER and are stored 


5185 

5118 ? " 
thout":? € 
es to" 

5128 ? " sort other molecules.":FOR H 
zi TO 188tDEMK688:NEMT H 

5125 IF STRIG(8)-1 AND DEM-B THEN GOTO 
5125 

5138 COLOR B:FOR C-18 TO 78:ՔԼ01 16,C: 
SOUND 8,C,18,3:DRAMTO 126,C:NEXT C:500 
ND 8,8,8,8 

5148 IF DEM-1 THEN GOTO 15818 

5158 RETURN 

5288 REM 

5282 50UND 8,8,8,8:COLOR 3:FOR 8-8 TO 
18:B-INT(148KRND (12) +18: CC INT (654280 (i 
3)t18:;PLOT B,C:NEXT ñ 

5218 COLOR 1:FOR A-8 TO 28:B-INT(148X*R 
ND (11) 18: CCINTCG65XRND (123 18: PLOT B,C 
SPLOT BF1,C:PLOT B,C*I1:PLOT Bti,Cti 
5215 NEXT ñ 

5228 COLOR 2:FOR 8-8 TO 18:B-INT(148XR 
ND (1))*18:C-INT(O5XRND (1)) *18:PLOT 6-1 
,U-i:DRAHWTO Bti,C-1:PLOT B-2,C 

5225 DRAMTO B*2,C:PLOT B-1,C*1;DRAHTO 
Bti,C+i:PLOT B,C-2:PLOT B,C*2:NEET A 
5218 FOR á-88 TO 18 STEP -1:S0UND 8,4, 
18,3:NEXT A:50UND 0,8,8,8 

5248 ? " The CYTOPLASM is the general 
area":? “ inside the cell which perf 
ornas” 

5258 ? " most of the active functions 
. There":FOR Wei TO 1808*DEMKG88:NEXT H 
5255 IF STRIG(@}-1 AND DEM-@ THEM 6070 
5255 
5268 ? " 


RETICULUM is a forM of ER wi 
the ribosomes, and it serv 


are many different structure 
Տուշ " present in the cytoplasms of" 
5278 7 " different cells. Common stru 
Ctures":FOR Hei TO 188*DEMKG8B8:NEMT H 
5275 IF 5TRIG(8)-1 AND DEM-@ THEN GOTO 
5275 

5288 2 " 


"2:7 48 
Be 


in the cytoplasm include the 

vacuole (2 sac holding food or" 
5298 2 " water), pigment and fat gran 
ules.":FOR MEL TO 1864DEMEGOG: NEXT H 
5295 IF STRIGCO2-1 AND DEMƏ THEN GOTO 
5235 

5588 COLOR G:FOR C-8 TO 75:ՔԼ07 18,0:5 
OUND 8,C,18,3:DRAMHTO 148,C:NEXT C:50UN 

b 8,8,8,8 

5318 IF DEM-1 THEM GOTO 15818 

5320 RETURN 

5488 REM 

5482 SOUND 8,8,8,8:Շ0Լ0Ք 2:FOR 6-8 TO 


SEVEN 


98:C-68XC05 (B/1.42 :PLOT 8418, (C-15) 1. 
4-4: bRAWTO 18, (C-15)*1 .4-4 

5404 SOUND 8B,(C-15)*1.4,18,23:NEXT 8:50 
UND 8,0,8,8 

5418 COLOR 1:FOR 8-8 TO 98:C-68XC05 CB/ 
1.4) :PLOT B+19, (C-15)%1,.4-Z2:PLOT 8+13, 
(£-15)X1.4-4:NERT B 

5428 FOR B-8 TO 98:C-68XC05(B/1.4) :PLO 
T B*t28,(C-15) X1.4*1:PLOUT B*28,(C-152X1 
,4*2:NEXT B 

5438 COLOR I:FOR 8-8 TO 38 STEP INT(4X 
քին C1)346:C-68KXCO05 (B/1.4) :PLOT B*28, CC 
-15)X1.4 t I:PLOT 8428, (Ը-15)21,4Է4 

5448 PLOT B*21,(C-152X1,4* 3;PLOT B*21, 
(C-15)*1.4t4: NEXT B 

5458 ? " The CELL MEMBRANE is an oute 
r":?" covering around the entire cel 
1 that" 

5455 2 " as composed of polysarcharid 

es, Its":FOR Wei TO 18804DPEMK688:NEXT H 

5468 IF STRIGC8)-1 AMD DEM-B THEN GOTO 
5468 

5478 ? " primary function is to regul 
ate the";7? " flow of Materials into a 
nd out of the" 

5475 ? " cell. Most particles enter t 

he cell":FOR Wi TO 1ØB+DEMMOBB:NEKT H 

5480 IF STRIG(8)-i AND BEM-@ THEN GOTO 
5488 

5498 ? " 

while":;? " 

gested by a" 

5495 2 " process called phagocytosis. 

"FOR Wi TO 188*DEM*G88:NEHT H 

5588 IF STRIGCA)-1 AND DEM-8 THEN GOTO 
5588 

5518 COLOR @:FOR C-8 TO 78;PLOT 10,C:D 

RANTO 128,C:50UND 8,C,10,3:NEXT C:50UN 

b 8,8,9,8 

5520 IF DEM-1 THEN GOTO 15018 

5510 RETURN 

78880 REM 

7081 FOR A-@ TO 14:BO(AI-G:NEKT A 

7882 GRAPHICS @:SETCOLOR 2,8,8:SETCOLO 

R 4,8,8:5ETCOLOR 1,8,12:POKE 82,1: TRAP 
7288 

7018 POSITION 18,2:? "Շն արո նո 

"POSITION 8,31:? " 


through the Membrane pores, 
larger particles can be in 


7828 CLOSE Hi:0PEN HI,4,0,"K;" 

7821 FOR Azi TO 5 

7822 RAÀ-INT(12XRND(B8))2*1:IF BO(CRA)-1 T 
HEN NEXT A:CLOSE #3:G07T0 7118 

7048 ? " NUMBER ";A 


PITCH 





18 REM 

28 REM X RECALL-A-PITCH * 
i8 REM * R. SCHWARZ AND S. OCKERS X 
40 REM X ATARI COMPUTER ENTHUSIASTS Ք 
58 REM ¥# 3662 VINE MAPLE BR. * 
68 REM X EUGENE, OR 97405 * 
78 REM * APRIL '85 S14/YR * 


80 REM FIEMMEN MEAE EEEE 
38 REM 

188 GOSUB 1268 

118 REM #386 DRAW SCREEN ու 

i28 ? H6;CHRS(1252:POSITION 4,1:շ HG;" 
Pih [Tcal POSITION 8,6:7 ; "SCORE 
H1:":POSITION 17,6:? H6;CHRS CA); 

130 IF PLYRS-2 THEN POSITION 0,3:2 86: 
"EDREITYE]'S:POSITION 17,9:? H6;CHRSCiZ 
2) :POKE 752,1 

148 POSITION 8,11:? ք6:"5555555956659555 
$99955559555$55255595555555" : : CNT1-8:CN 
T2-8 

158 POSITION 8,4:? HO;"DIF Hi-';EI1-48; 
168 IF PLYRS-2 THEN POSITION 12,4:? HB 
EYE" ;E2-48; 

178 60508 1140:POKE 656,1:POKE 657,4:7 
"ETP -0DIFFICULTY HINTA HPLAYERS": 
i188 POKE 656,2:POKE 657,7:7 "PRESS ԹՐ 

CH TO BEGIN": 

198 REM 3X CHANGE SET-UP? JO 

208 POKE CONSOL,8 

218 IF PEFKCCONS0LJ-3 THEN GOSUB 1168: 
6070 178 

228 IF PEEK(ICOMSOLI=5 THEN 1858 

238 IF PEEK(CCONSOL) O6 THEN 216 

248 GOTO 278 

250 IF RSTRT-1 THEM RSTRT-8:G0TO0 128 
260 REM 3393€ PLAYER Hi'$S TURN JONE 

278 GOSUB 1148:PO0KE 656,1:POKE 657,13: 
? TETEN IS UP":PUP-1:E-E1:G05UB 4 
18 

288 605HB 788:IF SCORE-1 THEN 60508 74 
8 

238 IF WIN-1 THEM GOTO 960 

i88 GOSUB 828:POKE 77,8:IF RSTRT-1 THE 
NH RSTRT-8:G0TO0 128 

318 IF STRIG(8)-8 OR STRIG(1)-8 THEN 3 
18 

320 IF PLYRS-1 THEM 258 

558 REM 3390€ PLAYER 12'5 TURN 3 

340 GOSUB 1148:POKE 656,1:POKE 657,13: 
? “STE 15 UP":PHP-2:E-E2:G05UB 4 
18 

358 GOSUB 788:IF SCORE=1 THEN GOSUB 78 
8 

368 IF HIN-1 THEM GOTO 968 


R. SCHWARZ & S. OCKERS 


378 60518 828:IF RSTRT-i THEN RSTRT-8: 
GOTO 128 | ' 
388 IF STRIG(8J-8 OR STRIG(1)-8 THEN £ 
38 
398 GOTO 258 
400 REM «ու SELECT PITCH SUBROUTINE XX 
* 
418 POKE 51248,8:PÜKE 53249,8:PÜKE 532 
58,8:POSITION 1,14:7 H6;" 

ifa 

Ա 

428 FOR 1-1 TO 388:NEKT T:POKE 656,2:P 
OKE 657,11:? “MEMORIZE THIS TONE:"; 
410 F-318*288*RND (Լ) 
448 TT-288-14X(E-48):F0R Tzi TO TT 
458 IF T(TT/18 THEN SOUND 1,F,18,188XT 
‘TT 
468 IF T?3XTT/18 THEM SOUND 1,F,18,188 
XCTT-TY /TT 
478 NEXT T 
488 SOUND 1,8,8,8 
438 60518 1148:PÜKE 656,1:POKE 657,12: 
? “WATT ....." 
588 J=L:FOR Tzi TO 588:NEXT T 
518 FOR T-1 TO RMD(T)458428* (E-49) 4 :N 
EXT T 
528 H-IBtRND(HIX288:50UND 1,H,18,18 
538 J-J*1:IF J(CE-493%5 THEN GOTO 518 
548 SOUND 1,8,8,8 
558 GOSUB 1140:POKE 656,1:POKE 657,15: 
? "MATCH THE NOTE";:POKE 656,2:POKE 65 
7,11:2 "THEN PRESS THE NE" 
560 FOR 1-1 TO 158:NEXT T 
578 G=30+20Ø*RND (Լ) 
588 SOUND 1,6,18,18:POÜKE 53248, (238-6) 
x0,8+48 


530 IF PUP=2 THEM 658 

600 IF STICK(082-7 THEN 6-6-1 

618 IF 51101 01-11 THEN G-G*1 

6208 GOTO 658 

638 IF STICK(1)-7 THEM 6-6-1 

640 IF STICK(1)-11 THEN 6-6Է1 

658 IF 6430 THEN G=30 

568 IF 62230 THEN G=239 

670 IF (STRIGCO)-8 AND PUP=1) OR (STRI 


6(1)-0 AND PUP=2) THEM SOUND 1,8,8,8:R 
ETURN 

688 GOTO 588 

690 REM 388: CHECK IF CLOSE ENOUGH WH 

788 SCORE-8:POKE 532423,(238-F)*8.8*48: 
POKE 53250, (230-F)*0.8+43:IF ABS CF-G) < 
6 THEN SCORE-1 

718 PS=STRS CABS (F-G)¥180/F) : POSITION 1 
14:27 H6;"y0u are ";P$(1,32;" % off"; 

728 RETURN 


EIGHT 


730 REM XXX UPDATE PLAYER Hi SCORE 33x 
748 WIN-@:FOR M-1 TO 3:POSITION CMT1,6 
17 ե," "FOR Lat TO 28:NEXT L:POSITI 

OM CMT1,6:7 Hb6;CHR$(CO);:G0SUB 358 

758 FOR Լ-1 TO 28:NEXT L:NEXT M:CHT1-C 

NT1t1:IF CNT1?17 THEM MIN=i 

768 RETURN 

778 REM WHE UPDATE PLAYER HZ SCORE 3X 

788 HIN-8;FOR M-1 TO 9:POSITION CNT2,? 
17 Hb;" "FOR L-1 TO 28:NEXT L:POSITI 

ON CNT2,9:? H6;CHRS(CII4); :GOSUB 358 
738 FOR L-1 TO 2Ø:MEKT L:NEMT HM:CNT2-C 

NTZt1;IF CNTZ2)17 THEN MIN=1 

888 RETURN 

818 REM 388: ALTERNATE SELECTED AND RAN 

DOM TONES NK 

828 605UB 1140 :POKE 656,1:POKE 657,4:7 
"THIS WAS METTET)... ":POKE 

656,2:POKE 657,8:? "SAA FOR NEXT"; 

818 SOUND 1,6,18,18:T-1 

848 T=Tti:IF 12106 THEM 880 

858 IF PEEKCCONSOLI-6 THEM RSTRT-1:50U 

ND 1,8,8,0:RETURN 

868 IF STRIGC@)-@ OR STRIG(I)-8 THEN 5 

OUND 1,8,0,80:RETURN 

$78 GOTO 840 

888 GOSUB 1140:POKE 656,1:POKE 657,4:7 
"THIS WAS DODDEBEIIEDISII)...":POKE 656 
,2iPOKE 657,8:? "YI FOR NEXT"; 

830 REM 388: DING SOUND 0 

388 SOUND 1,F,18,18:T-1 

318 T-T*1:IF 12186 THEN 828 

328 IF PEEK(CCONS0LJ-6 THEN RSTRT-1:50U 

ND 1,8,8,8:RETURN 

938 IF 5TRIGCO)-8 OR STRIG(I)-8 THEN 5 

OUND 1,8,8,80:RETURN 

348 GOTO 318 

358 FOR 7-15 TO 8 STEP -1:50UND 1,58,1 

8,J:NEXT J:50UND 1,8,8,8:RETURN 

353 REM 388: WIN ROUTINE 388: 

368 POKE 53248,80:POKE 5312493,8:PÜKE 532 

98,8 

970 ? H5;CHR$C125):G05UB 1140:POKE 656 
,l:POKE 657,18:? "PLAYER #°;PUP;" WINS 
!11";FOR M-1 TO 16 

388 POSITION 1*HM,6:? 186;CG5 CM, M ; :G05U 

B 358:R-INT(RND (0)3:4):60518 1828 

398 MENT M:POKE 656,2:POKE 657,7:? "PR 
E55 FOR NEN GAME"; 

1808 IF PEEKCCONSOL) O6 THEN 1888 
1918 GOTO 128 

1828 605UB 1868:POSITION RE,RY:? H6;CH 

R$C38) ; : RETURN 

1056 GOSUB 1868:POSITIONM RK,RY:? HECH 


R$(166);:605UB 958:RETURN 

1848 60508 1868:POSITION RX,RY:? H6;CH 
R$(6J;:G05IB 358:RETURN 

1858 60518 1868:POSITION RX,RY:?7 HE;CH 
Ք5(01541::60518 958:RETURN 

1868 RX-INT (RND (03:13) * 1:RY-INTCRND (8) 

*11)t1:IF RY-G THEN 1858 

i878 RETURN 

1888 REM XXX TOGGLE H OF PLAYERS 33x 
19908 IF PLYRS-2 THEN PLYR5-1:G0TO 1118 
1168 PLYRS-2 

1118 IF PEEKCCONSOL) O7 THEN iiig 
1128 GOTO 128 

1130 REM 33 BLANK MESSAGE AREA 388: 
1148 POKE 656,1:POKE 657,1:2 BLKS;:POK 
E 656,2:POKE 657,1:? BLKS; :RETURM 

1158 REM 288: CHANGE DIFFICULTIES 33x 
1169 OPEN #1,4,8,"K:":POKE 764,255 
1178 GOSUB 1140: POKE 656, 1:PQKE 557,2: 
? "DIFFICULTY FOR €1-93 7"; 
1188 GET ML,EL:IF E1449 OR E1557 THEN 

1178 

1138 POSITION 7,4:7 H6;E1-48 

i288 IF PLYRS-1 THEN 1248 

12108 60508 1148:POKE 656,1:PÜKE 557,2: 

? "DIFFICULTY FOR (1-31?'; 

1228 GET Hi,EZ:IF Է2445 OR E2257 THEN 

1218 

1238 POSITION 19,4:? 16; E2-48 

1248 CLOSE HI:RETURN 

1258 REM 388: SET UP PLAYER MISSILES 3X 

* 

1268 GRAPHICS 7:GRAPHICS 1:POKE 553,8: 

DL-PEEK (568) *2565XPEEK (561) : POKE DL*11, 

7:POKE DL+14,7 

1278 POKE DL*16,7:POKE DL+17,7:FOR 7-0 

Լ425 TO DL+33:POKE (J-4),PEEKC.J : NEXT 
J 

1288 A-PEEK(I86)-8:PMBASE-AX256:POKE 5 
4279, A:POKE 559,46:PÜKE 53277,3:POKE 7 
56,8 

1238 FOR J-i TO 18:POKE PMBASEt582*J,1 
:POKE PMBASE+710+J,3:POKE PMBASE+838+J 
2255: NEXT J 

1588 REM 94 COLORS EN 

1318 RESTORE 1320:FOR J-8 TO S:READ à: 

POKE 704+J,A:NEHT J:POKE 623,1 

1528 DATA 8,78,46,8,42,202,32,56,52 

1330 REM 39% MOVE 512 BYTES OF CHAR. 5 

ET XXX 

1340 REM 3 TO OPEN PM AREA EK 

1558 DIM MCSS(37) :RESTORE 1360:FOR 7-1 
TO 37:READ A:MCSSCJ, JIICHRS CA) :NEXT J 
:8-USR CADR (HC 5$) ) 


1568 BATA 184,162,8,113,28:,111,285,16 
3,224,113,284,165,186,56,212,8,111,286 
7162,2,168,8 

1378 DATA 177,283,145,285,788, 288,249, 
238,204,230, 286,282,288, 242,96 

1388 FOR J-PMBASEtI2 TO PMBASE+39: POKE 
J, Z55:MEHT J 

13908 RESTORE 1480:FOR JIPMBASE+48 TO P 
MBASE+55:READ A:POKE J,A:NEKT J 

1488 BATA 15,12,12,124,252,252,128,8 
1418 DIM BLKS(C38) :BLKS (12-" '':BLKS$CI8) 
=BLKS: BLKS (2) =BLKS:DIM CGS (16) :CG$="Co 
Mar t ՄՈԲ TOTIS t" 

1428 DIM D5(1),P$ (4) :PLYRS-2:CONSO0L-53 
273:է1-43:Է2-49:Ք5181-0 

1438 POKE 559,46 :RETURN 


HAPPY 
SLOWDOWN 


FROM LAST MONTH 


18 REM ----Shane Rolin Presents: 
28 REM Happy Drives BASIC slowdown 
38 REM program. 

40 REM ---- 

50 REM program by SHANE ROLIN 

68 REM of Pittsburgh à. C. E. 

78 REM 

98 CLR :TRAP 730 

188 DIM DATS (78) , DSKINUS (3) , SIQUS CX) 
118 REM 

120 REM Let's define Page Three 
130 REM 

148 DUNIT-769 

158 DCOMND-770 

168 DSTATS=771 

178 DBUFLO-772 

188 DBUFHI-773 

198 DAUX1-778 


NINE 


288 
218 
228 
256 
249 
258 
268 
278 
280 
230 
388 
318 
328 
330 
340 
i58 
368 
378 
i88 
390 
488 
418 
428 
458 
448 
458 
468 
478 
488 
430 
588 
918 
528 
558 
548 
558 
560 
579 
588 
598 
688 
618 
628 
638 
648 
658 
668 
678 
680 
628 
788 
718 
728 
758 


PAUX2-773 

REM 

REM Let's define ML subroutines 
REM | 

DSKINUS (1)-CHR3032) 
DSKINUS (2) =CHR5 C83) 

DSKINYS (I)-CHRÓ (2283 

REM 

51005 (1) ZCHR$ (32) 
51005 (23 -CHR$ (89) 
5I0U$ (3) -CHR5 (228) 

REM 

REM Let's define slow down string 
REM 

FOR LOOP=1 TO 51 

READ BYTE 

DATS (LOOP) CHR (BYTE) 

NEXT LOOP 

REM 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
REM Let's find addr. of 51005 
REM 

SIOVADBR=ADR (51045) 

REM 

REM Let's find addr. of DSKIMVS 
REM 

bSKADDR-0DR (D5KINUS) 

REM 

REM Let's find Lo/Hi of DATS 
REM 

ADDR=ADR (DATS) 
DATHI-INT(ADDR/256) 

DATLO-ADDR- (DATHIX256) 

REM 

REM Let's run the program! ! 

REM 

POKE DUNIT,2 

POKE DCOMND,87 

POKE DAUMI,8 

POKE DBUFLO,DATLO 

POKE DBUFHI,DATHI 

POKE DAUKZ,8 

K-U5R CDSKADDR) 

POKE DCOMND,81 

POKE DSTATS,8 

3-15 CSIOUADDR) 

END 


18,17,52,28,21,87,55,131 
134,76,55,31,76,33,8,76 
38,25,76,54,29,76,195,29 
76,195,29,76,195,29,76,58 
31,169,1,141,235,1,159,29 
141,14,8,169,195,141,13,8 
76,65,24 


THE CELL CON'T 


7858 RESTORE 11978:RAXIB:READ DAS:? DA 
$:7 :READ ANS:READ DAS:? DAS:READ DAS: 
? BAS 

7868 BO(RA)-1:? :? "YOUR ANSHER ";:GET 
#3,AN:? CHRS (AN) 

7868 IF CHRSCAN4+323 CANS THEN GOTO 788 

8 

7878 RI-RI+1:? :? “ERC 

7874 FOR D=38 TO ið STEP -18:50UND 8,D 

*INT C18XRND (122,18,18: SETCOLOR 2,8,8;F 

OR W-1 TO 18:NEMT H 

7878 SETCOLOR 2,8,15:NENT D;SETCOLOR 2 

,8,9:60T0 7838 

7888 ? :? "THAT IS WRONG, THE ANSWER I 

5 "sans 

7884 FOR 0-50 TO 158 STEP 19:500ND 8,D 

+INT CLGERND CI12),18,5:FOR H-1- TÜ 8:NEKT 
H:NEXT P 
7038 SOUND 8,8,8,8:? :? €" 

n:? NEXT ñ;CL 

OSE HI 

7118 IF Ք145 THEN 60518 8868:6070 40 

7128 IF Ք14-4 THEN 60518 3889:6010 48 

7158 IF RI?4 THEN 60508 18888:GOTQ 48 

8888 GRAPHICS 7:5ETCOLOR 4,8,8:5ETCOLO 

R 2,8,8:5ETCOLOR 8,3,8: COLOR i 

8818 FOR 8-1 TO 88:B-INT(158XRND(1)) t5 
:C-IMT(78XRND C132 *5:PLOT 88,48: DRANTO 

B,C:50UND 8,4X2,8,8 

8828 NEXT A:SOUND 8,8,8,8:? " THAT 15 

TERRIBLE!":? “YOU MADE ONLY ";RI;" COR 

RECT ANSWERS!" 

8838 FOR 4-8 TO 8 STEP -1:FOR Wi TO 5 

8:NEXT M:SETCOLOR 8,3,0:NEHT A:SETCOLO 

ք 8,8,8:RETURN 
3888 7 :? "THAT WAS OKAY.":? "YOU MADE 
":RI:" CORRECT ANSMERS.":FOR H-1 TO 1 

BOO: NEXT W: RETURN 

19800 GRAPHICS 2*16:SETCOLOR 4,8,8:5Է1 

COLOR 8,3,8;SETCOLOR 1,8, 8: POSITION 2, 

2:7 Hb; "CONGRADULATIONS!" 

18085 POSITION 2,4:? H6;"you answered" 
iPOSITION 2,5:? H6;"all questions": P05 

ITION 4,6:? H6;"CORRECTLY!" 

18018 FOR 8-20 TO 8 STEP -2:FOR B=20+A 
TO 5 STEP -3:50UND 8,B,18,18; SETCOLOR 
4,8, INT1(85-B2/5.3) 

18828 NEXT B:NEXT A:SETCOLOR 4,8,8:FOR 
8-5 TO 48 STEP -1:50UND 8,B,18,18:NEX 

T B:50UND 8,0,0,8:FO0R Hei TO JBB:NEKT 

W: RETURN 

11333 REM 

12888 DATA What structure controls the 
cell?,c ` 


12818 DATA a. vacuoles C. 


nuc 
leus | 
12028 DATA Ե. BWA մ. cyt 
051358 
12038 DATA Where is the ribonucleic ac 
id?,b 
12048 DATA a. cell membrane t. 1Ս5 
osomes 
12858 DATA b. nucleoli մ, rib 
OSOMES 
12868 DATA How many centrioles are in 
all animal cells?,b 
12878 DATA a. 58-188 c. 5 
12080 DATA b. 2 d. non 
6 
17890 DATA What does the centriole con 
trol?,b 
12100 DATA a. golgi bodies Ը, NUC 
1605 
12118 DATA b. mitotic spindle d. nuc 
1601: 
12128 DATA Where is the Mitochondria?, 
a 
12158 BATA a. cytoplasm c, nuc 
1605 
12148 DATA Ե. cell membrane d. cil 
ia 


12158 DATA What molecule is formed in 
the mitochondria?,a 

12168 DATA a. BMWA t. ATP 
12178 DATA b. glucose d. RMA 
12188 DATA What has the role of comple 
xing proteins?,c 


12198 DATA a. ER c, go] 
gi body 
12288 DATA b. ribosomes d. DMA 


12218 DATA Where are proteins stored?, 
b 


12228 DATA a. cytoplass c, nuc 
leus 

12238 DATA b. ER մ, Mit 
ochondria 


12248 DATA Which structure has attache 
d ribosomes?,a 


12258 DATA a. ER c. DNA 
12268 DATA Ե. vacuole d. 195 
050865 


12278 DATA Where are most of the funct 
ions of the cell performed?,c 


12288 DATA a. ATP c. cyt 
oplasm 
12238 DATA b. nucleus d. rib 
050865 


12388 DATA Mhat is primarily composed 


TEN 


of polgsaccharides?,b 


12318 DATA a. DNA c, nuc 
leus 

12328 DATA b. cell membrane d. mit 
ochondria 

12330 DATA How are large particles ing 
ested?,d 

12340 DATA a. replication C. exo 
cytoesis 


12358 DATA b. numeration d. pha 


APRIL 
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BRING 





18 REMHOHOGHBBBGBEBBEGBRIGGEEEGEGGEIEEJEEEE 
x 


11 REM 
x 


12 REM LOGICAL OPERATION ROUTINE 
* 


13 REMX by M.J. Cunningham 1/7/85 
£ 


14 REME Starfleet ATARI User Group 

Ն 

15 REMY 

X 

i6 REMRGHOOOOOOHOOOOOOOOBHOOOOOOHHOOEOÓ 

x 

17 REM 

18 REM The following are 16 bit machin 

e language routines allowing true AND, 
OR, and EXCLUSIVE OR logical 

19 REM operations. Unlike the ATARI 
BASIC logical operations returning o 

nly a 1 or 8 value, 

20 REM these return the full 16 bit 
result of 16 bit integer logical 

operations. 

21 REM — 

22 REM Set up by a 60518 to the 
appropriate INIT section. fall as 

Shown in the examples. 

23 REM 

388 REM Init for logical exclusive or 

356 REM Example of use: 

357 REM RESULT = USRCADRCLEORS) ARGI, A 

R62) 

360 DIM LEORS(C21) :FOR 1-1 TO 21:READ A 

:LEORS CI, ID =CHRS CA) : NEXT. I:STOP 

378 DATA 184,312,68,218,184,133,281,104 

;133,2804,184,69,283,123,211,184,62,284 

,133,212,96 

175 REM Init for logical or 

376 REM Example of use 

377 REM RESULT = USRCADRILORS) ARGILE, AR 

62) 

180 DIM LORSCZ1) :FOR 1-1 TO 21:READ A: 

LORS (1, 1) =CHRS CA) :MEKT I:RETURN 

198 DATA 184,32,68,218,184,135,285, 184 

;:133,2084,104,5,203,133,213,104,5,204,1 

33,212,%6 

335 REM Init for logical and 

396 REM Example of use 

397 REM RESULT = USRCADRILANDS) ARGI, À 

R62) 

408 DIM LANDS (21):FO0R 1-1 TO Zi:READ Å 

:LANDS CI, 1) =CHRS CA) : NEXT. I:RETURN 

418 DATA 184,32,68,218,184,133,2803,184 

,133,204,104,37,2083,133,213,104,37, 264 

,453,212,96 


Ralph Walden Teaches 


A common way of initializing a string array is to read it via DATA 
statements. This has the advantage that one can print it in ACE and 
other newsletters, but it tends to initialize rather slowly compared to a 
STRINGS = “text”. This program will set up the string assignments for 
you. To use it, merge the program with your own program. Let's say 


you have the following program segment: 
10 DIM STRING$(20;RESORE 100:FOR I=1 TO 20:READ 
A:STRING$(I) = CHR$(A):NEXT | 
What you will do now is add the line and run the program. 
11 GOSUB 32000 I 
The screen will clear, and you will be asked the name of the string, 


JOYSTICK 
DRIVER 
DEMO 


You just nee 


then the line number you want the string to start initializing on, and 
the increment between lines. You will then see the lines being created 
on your screen, and the READY prompt when it's done. You can now 
delelete lines 10,11 and all of the respective DATA statements. On 
paper, this probably sounds pretty complex, but in practice it isn't. 
d to decide ahead of time where you want the lines of in- 


itialization, then add a GOSUB 32000 after the string you want chang- 
ed is initialized via DATA statements, and run the program. (Note: if 
you are using BASIC XL do NOT use FAST mode!). When you are 
done using the program, you can do a GOSUB 32000, and when itasks : 
for the string name, just press RETURN, and the program will remove 
itself from your main program. Notice that line 32109 will first SAVE 
the program. The reason for this is that Atari Basic, and occasionally 
even BASIC XL, will crash when deleting lines. This will give you a 
back-up should that occur. 


188 REM JJXJOBHOHHOHOOBOHOOOHOEOHEN 
118 REM * Joystick Driver Demo 


Some printing errors in the previous programs: 
#3 (Feb): on lines 170 and 410, the cross should have been a T 


#4 (March): on line 310, should be ØTEXT — 


128 REM * by Jonathan Buckheit 
130 REM JJOHGHHOHOOHOOBHHOHHHOUE 
148 REM 

i58 REM - Joystick Driver - 


i68 REM 

178 JOYSTICK=ADR ("HAF üE: Արուն: 
AEIATUC FIVH 94) 

188 REM 

198 REM - Set up Screen - 

288 REM 

218 GRAPHICS 8:POKE 718,80:POKE 752,1:7 
228 REM 

238 REM - Set up Delta Change array - 

248 REM 

258 DIM DELTAC7,1):FO0R JB-8 TO 7:READ 


DELTAX,DELTAY:DELTA CJB, 8) -DELTAK:DELTA 
(JB, 1)-PELTAY:NEXT JB 

268 DATA 0,-1,1,-1,1,8,1,1,8,1,-1,1,-1 
8-12 

278 REM 

288 REM - Put Character onto Screen - 
298 REM 

588 POSITION KPOS,YPO0S:? "g"; 

318 REM 

320 REM - Read Joystick - 

338 REM 

148 JB-USRCJOYSTICK,82:IF JB-8 THEM 34 
8 
358 
368 


REM 

REM - Check Coordinates - 

378 REM 

180 DELTAK=KPOS+DELTA(JB,Ø) :DELTAY=YPO 
S+DELTA(JB, 1): IF DELTAK(1 OR DELTAK)38 
OR DELTAY(1 OR DELTAY)22 THEM 548 

390 REM 

488 REM - Erase Old Character - 

418 REM - Update Coordinates - 

428 REM 

418 POSITION KPOS,YPOS:? " '";:XPOS-DEL 
TAK: YPOS=DELTAY:GOTO 300 


ELEVEN 


Ralph Walden 


32000 GRAPHICS 8:7 "KSTRING NAME (RET. 
TO ERASE)":DIM 025(28) : INPUT 075:18 Q 
Z$="" THEN POKE 842,15:6010 320139 
32001 7 "RLN.H,INC.":INPUT LN,IN:? "K4 

HHL=LENC" 079; "93 : DIM THES CL) : THES-";Q 

2$; "$:CONT":POSITION 8,@:PQKE 842,1::5 
TOP 

32002 Z-8:DIM CLEARS CL) : CLEARS-THES : FO 

R N-1 TO L:IF THES(N,N)-CHRSCS4) OR TH 

ESCM,MI=CHRSC155) THEN THES (N,N) ="A" 
32001 NEXT N:N-1:L-L t88 

32004 L=L-80:IF L(88 THEM Z-Z*L:GO0TO I 

2086 

32005 2-2*88 

32006 ? “RSs? LW;" '";029;"S C; N; "="; 

CHRS(34);:POKE 766,1:? THES(N,2):? "CO 

NT":POSITION 8,8:5TOP 

32007 N-N*88:POÜKE 766,Ø:LN=LM+IN:IF L? 

79 THEN 32884 

32008 Z=1:FOR Nzi TO L:IF CLEARSCN,M1- 


. CHRS(34) OR CLEARSCN,NI-CHRS (155) THEN 


GOTO 32010 

32009 NEKT N:GOTO 32017 

32010 IF 721 THEM 32813 

52011 ? “MSS? LN;" ";029; "S C; N;","; 
N;UJ-CHRS (C; ASCCCLEARS EN, MING 
52812 Z-Z211:60T0 52883 

52815 Z=Zti:IF 725 THEN 372015 

22814 2 ":";025;"$ CN; ,"; N;") CHRS C" 
;ASCCCLEARS CM, N221;"7)"7; :GOTO 32089 
52815 Z-1:? :? "CONT":POSITION 8,8:5T0 
P 

32816 LN-LN*IN:GOTO 32811 

32017 ? :2 "CONT":POSITION 8,8:5T0P 
32018 POKE 842,12:GRAPHICS G:END 

32019 SAVE "DL:TMP":? “He's? "32000": 
> "12801":? "CONT":POSITIOM 0,8:STOP 
32020 7 "Kö4":FOR N=-32002 TO 52821:7 N 
:NEXT N:? "POKE 842,12:GR.0:END"; 
32021 POSITION 8,8:5TOP 


DISK LISTING PROGRAM 


18 
28 
i8 
78 
88 
38 
31 
32 


REM J33ODOOODODOOOOOOCNACCOOGCOQEOOOOOOOE 

REM X DISK LISTING PROGRAM by X 

REM XDICK KUSHNER & GORDAN BANKS* 

REM JOODDOOOODDOOOOHCOHDOOODGOOGOPHOOOOOOHE 

REM * JACG NEWSLETTER - Dec.1984 * 

REM * $28/Year x 

REM XContact:Ron Kordos * 

REM * 281 Lake Valley Rd ¥ 

93 REM X Morristown, NJ 87968X 

95 REM X39300]0]000]0)0)0]0]9)]090])B]]]0HOYWBOOOHOOOHE 

188 DIM B$C172, NS (40) ,F5 (38802, 59 C162, F 
B$(12888) : KC1: 0-X-H:P-7:FBS-"":;POKE 82 
,2:605UB 478 

118 GOSUB 158:? "1, Load Printer with 

labels or paper." 

128 ? "42, Turn on printer and interfa 
ce," | 

138 ? "43, Insert diskette into Drive 

1," 

148 POKE 752,X:? "$åPress RETURN when 

ready"; : INPUT N$:? 

i58 TRAP 158:G05U8 158:7 “PRINT HOW MA 
NY COLUMNS?":? "LiSelect 2 to 3 for I. 
5 in. labels." 

168 2 '"4Select 2 to 4 for 5 in. labels 
"Ui? "iSelect 1 to 6 columns for paper 


178 ? "LLHOHM MANY COLUMNS Ci to 62";:I 

NPHT COL:IF COLSK OR COL}6 THEN 158 

188 G0SUB 358:7 " Bo you want the fi 
les printed":? " talphabetically (Y/ 

N)";:INPUT NS:IF N$-"" THEM 188 

198 IF N$(M,M)-"Y" THEM SORT=H:GDTO Zi 

8 

288 IF N9(À,M) O"N" THEN 188 

218 TRAP I18:0PEN HP,8,0,"P:":7 gp;"kg 

EJee £50" | 

228 CLOSE 82:60518 358:7 "Enter 'END' 

to quit.":IF LEN(FBS) THEN 2 "Enter ' 

SORT FILE' to print all files.4" 

258 7 "¿Enter a diskname for next disk 
label .$":INPUT NS:IF NS-"END'" THEN GR 

APHICS O: END 

248 IF N$-"SORT FILE" THEN POKE 285,12 
:POKE 284,12:GB-I SR (1568, ADR (F85) , LENI 

FB$)/12):60T0 368 

258 OPEN 12,6,8,"D:X,x'';F$-rn 

268 INPUT #Z,BS:IF LEN(BS2417 THEN GOT 

0 339 

278 FSCLENCFS) +H) =BS (3, 18) : FS (LENCFS3 + 

HIZ" ": FS CLENCE5S) 44) —BS (11) : FBS CLENCFB 

$341) -F5 (LEN CFS)-15, LENCFS3-43 :GOTO 26 

8 

280 60508 Z58:POKE 752,X:? "MPrinting. 


BY DICK KUSHNER 


QSUPNSILTKICP-O:FOR IZH TO LENCFS) STE 

P 16 

238 ? WP;F$(CI,It15);" "n: SCP-CPtR:IF 
CP-COL THEN ? HP:CP-O0:L-L*X:IF COLA 

THEN IF Լ-18 THEN L-0:? #P:? թ 

388 NEXT I:FOR I=L TO 11:? HP:NEXT 1:ն 

010 228 

318 TRAP 48888:IF PEEK(195)-128 THEN i 

18 

3280 2 :? "ERROR '";PEEK(C1952;" AT LINE 

"SPEEK(1862*256KXPEEK (187) : STOP 

338 IF SORT THEM POKE 285,16:P0KE 204, 

16:GB-USRC1568, ADR IFS) , LEN CF22/16) 

348 FOR IZH TO f'18XCOL-C21t*LEN (N22)2/2 
:2 107; ույ Էի I:7 HP;N$;" HAS '";B5:6 

010 288 

350 GRAPHICS 0:7 "> 

MT ++":FOr I-8 TO 15 STEP 8.5:50UN 

D 8,28,18,15-I:NEHT IT: RETURN 

360 GOSHB 350:7 “Ready to print total 

directory.":? '"4Insure that printer is 
loaded with PAPER, MOT LABELS" 

178 2 "¿Enter 'i' for tiny print. "i? " 


4 '2'! for small print,":? "4 
25: for normal print." 
yee? 4 '4' for LARGE print." 


338 ? "LjEnter choice when ready"; : INP 
UT N$:IF N$-"1" THEN ? HP;"Li-,158":? 
HP:GÜTO 448 

400 IF N$-"2" THEN 7 HP;"Ee,EN4":? HP: 
GOTO 446 

418 IF N$-"i" THEN 7 HP;"hLetw]":? HP:G 
010 448 

428 IF N$-"4" THEN ? fP;"Lekupen":? H 
P:GOTO 448 

438 GOTO 768 

448 L=K:FOR IM TO LENCFBS) STEP 12:7 
HP;L;U. "::18 £418 THEN ? HP;" "j 

445 ? HP;FBSCI,IS11) :LZL tX; NEXT I:605U 
B 358 

458 ? "Enter '1' for another copy":? " 
¿RETURN to End program"; : INPUT NS:IF N 
$-"i" THEN 368 

468 GRAPHICS 0:END 

478 IF PEEK(1568) O 184 THEM GOSUB 358: 
? "One moment please...";:FOR 1-1568 T 
D 1693:READ A:POKE I,A: NEXT I 

488 POKE 203,0:POKE 206,0:RETURN 

498 DATA 184,184,112,217,184,133,216,1 
84,113,2802,184,113,288,169,8,133,218,1 
33,287,162,1,165,216,133,214,165,217 
518 DATA 153,215,24,165,214,153,212,18 
1,785,133,214,165,215,133,713,105,0,13 
3,215,164,203,165,286,240,18,177,214 


TWELVE 


528 DATA 289,212,144,44,248,12,176,19, 
177,214,2893,212,144,11,240,2,176, 18,28 
8,196,204,248,227,176,23,144,223,169 
518 DATA 1,153,218,164,285,156,177,214 
,72,177,212,145,214,104,145,212,192,8, 
208,241,232224,8,288,2,258,207,228 
548 DATA 288,288,172,155,289,197,287,2 
88,166,165,218,281,8,288,144,96 


SURF 
SOUND 


18 REM JXXRFAL SURF SOUND 

28 REM HERBY LEE MINARD33ERX 

30 REM XXSTARFLEET, DENUERXX 

40 GRAPHICS 2:5ETCOLOR 4,8,6:5ETCOLOR 
2,8,8 

58 7 H6:7? #5:? 86:7? Hb;" 
p 

68 POKE 769,8:POKE 752,1 
78 ? " Real Surf Sound" 

8g ? " by Lee Minard" 

188 1-3 

298 FOR 1-58 TO 11 STEP -i 

228 SOUND 3,225,4,X:50UND 2,0,8,X 

234 X-K-8.5 

235 IF H-8 THEM 1-1 

216 IF J-48 THEN X-7 

237 IF 1-13 THEN 1-7 

238 IF 4-35 THEN K-5 

239 IF 1-1 THEN 2-11 

240 SOUND 8,J,8,4:50HND 1, 145,8,5 

258 FOR WAVE-1 TO 28*RND(COJX188; NEXT H 
AUE 

265 

380 

338 

334 

335 

336 

337 

340 

358 

AVE 

365 

488 

DLAY 
588 GOTO 1860 


SURF'S UP 


NEXT J 

FOR 1-18 10 8 STEP -8.5 

SOUND 3,225,4,X:50UND 2,8,8,H 
K-X-0,5 

IF X-8 THEN 2-1 

IF 1-5 THEN X-6 

IF J=1 THEM 4-9 

SOUND 8,J,8,4:500ND 1,4+5,8,3 

FOR MAVE=1 TO 28*RND(OJX158:NEXT H 


NEXT J 
FOR DLAY=1 TO 388*RMD(BI)X3OB:NEXT 


DOUBLE SYNFILE 


(reprint: JAGG, Feb. 1985) 

Want to operate on SynFile + records in double density? Joe Zar- 
nitz of JACG provides an undocumented way to do it! — JB, editor 

First you should make a copy of the file using the “copy” function 
of SynFile+. This procedure "empties the trashcan" and on files 
where records have been deleted will shorten the number of bytes 
considerably. 

The next step is to change density using the "copy file” function of 
your favorite DOS with one drive set up for each density. [Some drives 
will handle this operation in a single-drive configuration]. Be sure to 
get all 4 files (suffixs *.IDX, *.TBL, *.D01, and *.CNF). The wildcard 
suffix will catch them all. 

Now boot up SynFile+ and "OPEN" your file in its newest version. 
The density should adjust automatically. Select your file and then go 
to the “RECORDS” option, select “REINDEX” and reindex the file. 
You can reindex by the same criteria as before or by a new one, but 
you must go through this procedure if you want this to work. 

Now you can use your file in any way you wish, just as though you 
had made the original file in double density form. If you have any 
questions, call me at 201-539-4212. 


USERCOMP 


(Reprint: U.K. Atari User's Club) 

UserComp is Յ simple (2) single-pass machine-language assembler 
which takes most of the hassle out of creating User subroutines. It is 
designed to create a string directly, eliminating messy data reads 
(though this facility is still available). Although no labels (user-defined 
names for certain line numbers) are allowed, it is very easy and effi- 
cient to use, and is designed to save many of the keystrokes demand- 
ed by other compilers. 

Loading 

If your program is not yet written, CLOAD the Compiler. The pro- 
gram loads to 9000, whereupon you can create the USRs required, 
eliminate the Compiler by its built-in utility, and continue to write the 
rest of your program. If your program is already partially written, then 
procede as above, and LIST the USRs to tape, then ENTER them into 
your main program. 

Using the Program 

On running the program, a “form” will be displayed. The first op- 
code “PLA” is also displayed, both as an example of the format in 
which to enter the codes, and because all USRs will need this sooner 
or later. (It can be eliminated if desired by use of the Directive RUB). 
We recommend you first jot down your program on paper, rather than 
compose it on the screen, as you must know in advance to which line 
numbers you are branching. 

The Operation Code Field 

The solid question mark invites the entering of an alphabet 
character to form a 3-letter op-code. Some keys are locked out, and no 
editing is possible. If a mistake is made, enter three letters anyway 
and let the program reject it as invalid, or use the Directive RUB on the 
next line to erase it. No space or return is required; the program takes- 
off after the third keystroke to decide whether an address is required. 
The Operand 

If the program decides the op-code mnemonic is a valid one requir- 
ing an address field, then the cursor will invite one. For the first 
keystroke, valid responses are: 

A for the Accumulator (shift/rotate group only) 

Hash or Equals to indicate the "Load Immediate" mode 
Dollar to prepare for Hexadecimal input 

Open Bracket for Indirect Page zero address modes 

Digits to commence a Page zero or Absolute address 
T to mean a location in Page zero called “Temp” for general usage. 
(The idea is to avoid having to remember which page zero locations 
are available to the user, saving keystrokes, and having a recognizable 
label on the screen — the compiler expands the label on-screen from 
"T" to “TEMP”). 

Ւ, Լ to mean the locations in page zero where the “result” (if used) 
is passed back to Basic. H and L refer to the high and low bytes of 
this result, interpreted by Basic as a real positive integer from zero to 
65536. If not used, Basic will assign a "result" to the USR call based 
on whatever number was last computed, for example the address of 
the USR string. 

D to mean a pair of locations in page zero to be used as a destina- 
tion pointer for (indirect) Y operations. 

S to mean another pair used as a "source pointer". (Copying 
character sets or moving data requires 2 pointers). To access the high 
byte of tese pairs, use the PLUS symbol after the label. 

I to mean “indirect via" one of these pointers. Which pointer is used 
depends on whether a Load or Store instruction is being called. 

M to mean the location MEMTOP (106) which Basic is forbidden 
from encroaching beyond. 

Second and subsequent valid keys are: 

Digits and letters (A to F), Indexes (X,Y), Comma and Bracket. 

A Plus sign may be used to add 1 to any address — used to access 
the high location of pairs "D" and "S". 


— Joe Zarnitz 


THIRTEEN 


USERCOMP INSTRUCTION SET 
OP. Operation 
ADC Add with Carry 
ADD MACRO (CLC, ADC) 
AND Logical AND to A 
ASL Arithmetic Shift Left 
BCC Branch on Carry Clear 
BCS Branch on Carry Set 
BEQ Branch on Equal (Z flag set) 
BIT Test Memory bits (flags N,V,Z) 
BMI Branch if Minus (N flag set) 
BNE Branch if Not Equal (Z reset) 
BRK Break Assembly (NOT 6502 BRK) 
BPL Branch if Plus (N reset) 
BVC Branch if overflow clear 
BVS Branch if overflow (bit 6 to 7) 
BYT Inpute Byte or Word (Note 5) 
CIO Macro (JSR Central I/O) 
CLC Clear Carry flag 
CLD Clear Decimal arith. flag 
CLV Clear overflow flag 
CMP Compare to A 
CPX Compare to X 
CPY Compare to Y 
DCP Decrement&compare to A (Note2) 
DEC Decrement memory 
DEX Decrement index X 
DEY Decrement index Y 
END Compile & Print USR 
EOR Exclusive OR to A 
INC Increment memory 
INX Increment X 
INY Increment Y 
LAX Load A & X (Note 2) 
LDA Load Accumulator 
LDX Load Index X 
LDY Load Index Y 
LSR Logical Shift Right 
NEW (See Note 3) 
NOP No Operation 
ORA Logical OR to A 8 
PHA Push A onto stack - 
PHP Push Processor status 
PLA Pull A from stack 
PLP Pull status flags 
PUL Macro (PLA, STA) 
PUT Macro (LDA, STA) (Note 4) 
RES Macro (NOP,NOP,NOP,NOP) 
ROL Rotate left through carry 
ROR Rotate right through carry 
RTS Return from USR to Basic 
RUB Delete last line entered - 
SBC Subtract with Carry 
SEC Set Carry flag 
SED Set Decimal mode 
STA Store Accumulator to Memory 
` STX Store Index X to Memory 
STY Store Index Y 
SUB Macro (SEC,SBC) 
TAX Transfer A to X 
TAY Transfer A to Y 
TSX Transfer Stack pointer to X 
TXA Transfer X to A E 
TXS Transfer X to Stack Pointer - 
TYA Transfer Y to A - 
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Note 1. Macros here simply mean pre-defined instructions. 

Note 2. See "Extra Instructions”, COMPUTE!, October, 1983. 

Note 3. Same as RESET, GOTO 9000. Do NOT use after Reset as 
Basic will wipe out the program! 

Note 4. Use as the equivalent of POKE, except the data comes 
before the address, with LDA (immediate), STA page zero or absolute. 
The equivalent of a MOVE when used as LDA (location), STA 
(location). The only restriction on the number of addressing modes 
comes with fitting it onto the screen. 

Note 5. Use as data and to support those op-codes not mentioned 
here. For example, JSR can be input as BYT 32, BYT (address word). 
When the number of addressing modes is specified (in the MODES 
column) as anything other than “-” then an address field is expected 
of you. For Branches, only the Line Number is acceptable. A Hash 
sign, or an Equals sign, are both acceptable as an “immediate” com- 
mand. 

A Dollar sign sets the input to Hex mode (default decimal). 

The address field is terminated by a Space, a Return, or sometimes 
by the indexing symbols X, Y, or ). 


Atari File Developer 


This past summer I worked on an Apple computer using 8 program 
called Appleworks. (This is probably the best microcomputer program 
I have ever seen). In using Appleworks, I encountered many scrolling 
disk directories from which one could pick his choice (or choices) and 
then have the program operate on them. I then took it upon myself to 
write a similar thing for Atari using my then newly acquired Action! 
cartridge. After many hours of blood, sweat and tears I came up with 
the scrolling directory routines and a program which I affectionately 
call ‘FID’ (after an Apple program which does many of the same func- 
tions). 

This program will allow you to do mass file locks, unlocks, deletes, 
and copies, in addition to basic disk formatting. Mass file copying is 
done by first telling the program what files you want copied. Then the 
program reads them all in from the source disk into a memory buffer, 
and writes them back out to the destination disk, with only a single 
disk swap. Unfortunately for you multi-drive system owners, FID was 
written for only a single drive system, i.e. it will only operate on the 
disk in drive 1. Actually, if you have two drives, the main function of 
FID (mass file copies with few disk swaps) is no big deal anyway. 

While all the functions of FID are available from your DUP menu, 
FID lets you do these in an efficient, user-friendly manner. The only 
keys used are the up and down arrows, numbers 1 through 5, 
RETURN, and the START button. | have given this program to a 
neighbour boy with an Atari who couldn't figure out the DUP menu, 
and now he uses FID all the time. 

USING THE PROGRAM: 

When you load the FID program, you will be faced with a menu of 5 
items. Before you choose the function you want executed, you will 
have to place the disk you want operated on in drive one. Then push 
the number, and the program will read in the directory and show you a 
portion of it. To select files to be operated on, press the RETURN key. 
This will cause the file pointed to by the pointer to be displayed in in- 
verse video, indicating its selection. To move the pointer up and down, 
simply press the + and * keys (without holding down control). To 
move the pointer quickly, hold down control and press these keys. To 
deselect any files you may have selected by accident, simply position 
the pointer across from them and press RETURN again. When you are 
finished making selections, press the START button, and the files will 
be operated on. f 

If you just wish to see the directory on a disk, choose one of the op- 
tions Lock, Delete, or Unlock, and then don't press RETURN. When 
you are done viewing the menu, press START. 

To use the format option, press the 5 button. The program will at- 
tempt to check if the disk is already formatted, if it is you will be ask- 
ed to confirm your choice. If it isn't, then it will be automatically for- 
matted. NOTE: It sometimes takes quite a while to decide the disk is 
not formatted. If this delay is unacceptable, you might want to modify 
the procedure Checkformat() so it only says Format('D1:"). This will 
mean removing the rest of the body of this procedure. 

COPYING FILES: 

FID was originally written for this and oniy this purpose. I had got- 
ten angry at DOS for making me switch disks so much when I was ՇՕ- 
pying a bunch of small files. What FID will try to do is read as many of 
the selected files into memory as it can, then dump these all out onto 
the destination disk. Generally speaking, it works well, but for very 
large files the DUP copy should be used — FID gets confused if it 
can't read a very large file into its memory buffer at a single pass. 
Also, avoid copying DOS files with it — better use DUP to write DOS. 

I have used FID in conjunction with RANA SmartDOS to transfer 8 
number of single density music files to double density. With only Յ 
single drive, density conversion can be a very long, boring sequence 
of disk swaps. With FID and SmartDOS, the disk swaps are cut down 
drastically (if small files are being copied). To use FID in this capacity, 
simply boot your system with RANA SmartDOS and then either Load 
FID or Run it from the ACTION monitor. 

COMPILING: 

When you compile this program, some special precautions must be 
taken. First of all, you should type the program into your editor and 
compile it while it is still in memory until all the syntax errors are 
removed. Then save the text file to disk from the ACTION! editor. 
Clear the editor, and enter the monitor. Type C "FID" (or whatever 
name you used) and wait while it compiles. Now type ?$E from the 
monitor. Make a note of the last number printed out by the monitor, 
and make sure "codetop" is at least 100 greater than this value. If it is, 
then type w “FID.COM” to write out a executable file. If codetop isn't 
large enough, go to the editor, load the file in, change it, saved the file, 
and recompile. Note that this COM file will need the ACTION! car- 
tridge to be present to run. If you have the Runtime package, you may 
want to compile and save a runtime version of FID so you will be able 
to run it without the cartridge in. in this way, you gain 8K of buffer 
space. 


FOURTEEN 


THE PROGRAM: 

| am embarrassed to say that this program is not a very good exam- 
ple of an ACTION program. I wrote it during the summer of 1984 
(almost a year ago!!!) before I had taken any university and by my 
prof's standards this program is a mess. However, for those who want 
to spend some time, the procedures from Read Directory down to Ex- 
ecute could be copied into another program, and with the right global 
variable declarations, the scrolling directory should be able to be used 
with a minimum of effort. The execute procedure would have to be 
called from the program, and would get the filenames selected and 
presumably either operate on them or return them to the main pro- 
gram. Let me know if you get these going in your own programs, or if 
any suggestions for features in FID that you would like to see added. 
My address is: 

Dale Lutz 
3504-104 St. 
Edmonton, AB T6J 2J7, Canada 


THE CELL 


THE CELL is an educational program using graphics to give the 
user a colorful tour of a typical animal cell. It may be used by anyone 
who wishes to learn a bit about cells (and it is a great review for a 
biology test!). | spent quite a bit of time to write and debug it, and it 
can be very educational. 

The program displays a large color image of a single cell, and a 
blinking cursor. The cursor may be moved, using the joystick, to any 
of eight different parts of the cell. When you wish to view a part of the 
cell in greater detail, press the trigger and a magnified image will ap- 
pear, along with some textual information. When you feel you have ab- 
sorbed everything, press START and a multiple-choice quiz will com- 
mence. 

THE CELL was originally written for a science-fair project a year 
ago. When | originally wrote THE CELL, | did not understand such 
"complex" things as Player/Missiles or Page Flipping, so the techni- 
ques used in the program are simple. Each part of the cell is drawn in 
graphics mode 7, by routines using normal PLOT and DRAWTO com- 
mands. The multiple choice quiz uses questions and answers stored 
in DATA statments beginning at line 12000, and more questions could 
be added. The major routines of THE CELL are identified with REM 
statements, so it should be easy to modify the program if you wish. 

THE CELL requires at least 32K to operate. It might take quite a bit 
of typing to enter the whole program, but it should be worth it! 

—Paul Freeman 


ATARI ANIMATE 


ANIMATION - USING CHARACTER GRAPHICS 

Using any one of the available drawing programs such as 
DataSoft's Micro-Painter, it is possible to design very detailed and col- 
orful screens. These programs use ANTIC mode 14 (sometimes 
known as GRAPHICS 7.5), which provides 4 colors with a resolution of 
320x192 pixels. The only disadvantage is the mode uses almost 8K of 
screen memory. If you wish to use your ANTIC 14 designs in your own 
programs, this memory limitation can cause problems. 

To solve this problem, Jerry White has created an excellent 
graphics package called Atari Animate. The program allows you to 
load in a screen created with Micro-Painter (or other programs), and 
convert the screen into a font for use with ANTIC mode 4. ANTIC 4 is 
a multi-color character mode which has the same resolution and 
number of colors as ANTIC 14, but ANTIC 4 uses less than 1K of 
memory - a big savings! Atari Animate consists of a disk filled with 
many programs all designed to work together. The main programs of 
the package are: : 

S2FONT - The main utility program which converts graphics 
screens into character fonts. 

ANIMATE - A demonstration program which displays a walking 
robot. Once you have seen this demonstration, you will realize the ad- 
vantages of using character graphics. 

DISPDISK - A utility which displays on the screen a font created by 
S2FONT. 

FONT2STR, SMP2STR, DISPSTR, SCR2STR - A series of utilities 
which convert character fonts and displays into BASIC strings. 

STR2SMEM.SRC - An Assembler source code for a string display 
routine used by the ANIMATE program. 

The documentation to the programs is very complete (17 pages), 
and it serves as a tutorial on how to use character graphics for anima- 
tion purposes. The author, Jerry White, shows you every step of the 
process needed to convert your graphics screens into a functioning 
part of your program. Atari Animate is an excellent addition to 
anyone's library of Atari software, and | plan to use it extensively. It is 
available for $12.00 (very reasonable!) from: Jerry White, 18 Hickory 
Lane, Levittown, NY 11756. 

— Paul Freeman 


PQ ($45, Suncomm, 1985 Design: Tom Quinn Jr., Programming: Joe 
Hellesen), or Party Quiz, is a basic computer trivia game. PQ allows up 
to four players to play in a fast pace question and answer session. The 
package also includes hardware: 4 game controllers and adaptor so 4 
may play even with only 2 joystick ports. 

Player response times may be selected, by the use of the option 
key, and may be of 3, 5 or 10 seconds in duration. Ճ pause function 
must be used for unlimited response time. Each game consists of a 
series of rounds, with one round consisting of 10 questions. The 
preset option is for 5 rounds, but this may be altered to 8, 12, 16, or 20, 
making the games of from 50 to 200 questions in length. — - 

The game may be played in one of two modes, competitive or 
social. In competitive mode all players or teams are competing at 
once to answer the displayed question. The first correct answer being 
the winner for the available points displayed. Social mode allows all 
the players to answer even after a correct answer has be given, of 
course more points are scored by the first correct answer. 

Points are awarded by the use of a displayed time clock. The clock 
is set at 1000 points for multiple choice and 500 points for true/false. 
As the game proceeds the clock ticks off the points, the time of the 
correct answer determining its value. In PQ there is even a way for the 
various players to be handicapped. The handicapped player is given 
only half the time to answer a question. His controller is deactivated 
for the first half of the turn, not only allowing him half the time but 
reducing his point count by half. 

Each controller is a simple hand held unit with four response but- 
tons. The sets are attractive and well made. One caution is that the 
controller package must be in place prior to loading the game, if not 
some of the controllers may be inoperative. On the whole Suncom has 
put together a nice little package. A little carelessness is evident in 
the questions. For example one question asks 7x8 — 54 true or false. It 
credits false as the correct answer but it tells you the answer is 58! 
Another gives "Ka”as the abbreviation for Kansas. Perhaps for a true 
trivia buff the lack of distinct catagories might be disappointing, but 
as a general trivia game this one is good. 

The program provides custom designed graphics screens, and 
there is some sound. The scores of top players are recorded and titles 
are given for attaining performance levels. 

Suncomm has additional question disks for $25. | want to see them 
issue a disk allowing you to set up your own series of questions. 
Without these additions, it is obvious at some point the available 
questions will have all been memorized. 

— Nick Chrones 
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TO REMOVE THE METAL PLATE) 


fis. | RGB Soo 


ERACE 


The ERACE Education disk #8 is now ready. These 6 programs 
cover a wide range of subjects. The first 5 programs are from John R. 
Kelley. 

DOMINOS, DOMINOS2 and DOMINOS3 are separate, but chained 
arithmetic programs based on the spots of the double six, the double 
nine, and the double twelve dominos. 

FLASH SPELL provides practice in recognizing and spelling over 
300 common words. 

FLASH READ helps to increase reading speed. A hundred short 
phrases are available. 

CELL |2 is a science program from Paul Freeman teaching the 
basics of the cell. Very good graphics. Joystick and 32k are required. 

This disk or any ERACE disk can be ordered from Ron Ness, ACE 
Librarian (374 Blackfoot, Eugene, OR 97404), for $10. Double sided 
disks (with another library disk) are $15. 

Our next disk is half full. We need more education programs which 
are projects for your children, students, friends, and/or grandchildren. 
We can also use public domain programs. Send the program on disk 
or tape with documentation including your name and address. 

We are still soliciting software for review. Even though we want to 
see aS much commercial work as possible, we are just as interested 
in seeing your pet project in sharing ideas and knowledge. 

If you are interested in joining ERACE, either call or drop a note into 
the mail. We will have meetings in Eugene with enough interested 
members. 

— Nora Young 
ERACE SIG 


GETTING READY TO READ AND ADD 


($40, Sunburst Communications. Recommended for ages 4-7) 

This package includes six programs designed to give children prac- 
tice in discriminating shapes (BEAM UP), upper and lower case letters 
(ALPHASAURUS, ABC= =, & LETTER GETTER), numerals (MOON 
MATH & NUMBER CHICK), and eye-hand coordination. 

Correct responses cause novel and interesting things to happen on 
the screen with lively animation, colorful graphics, and sound. Incor- 
rect responses are ignored. . 

These games can be changed by the user to control things like how 
fast, how many, and in what order information is presented. The user 
manual is very good. Each game has its own page along with a large 
picture, description, skills, change option, and objectives. There are 
suggestions for parents and teachers on how to present the program. 

The disk is next to impossible to crash since one must press Con- 
trol and the E key together to end the game. 

We find the games to be a charming approach to teaching simple 
concepts. The graphics and sound, along with the change option 
make the games more interesting for the child. Katie, our first grader, 
enjoys the games and the rewards she gets for a good job. Joe, our 
3rd grader, enjoys the graphics and effects. ' 

— Nora Young 


RGB FOR THE 800 


(reprint: Bay Area Atari Users Group, March 1985) 
SUBJECT: ATARI RGB OUTPUT 

Atari 800 owners can now have an RGB output for $20 or less by 
connecting to the A103 chip on the PC board under the metal plate on 
the bottom of the Atari 800. 

For those with RGB adjustments on their monitor the installation is 
simple. The soldering of the five wires to the appropriate pins of the 
A103 chip and the soldering of the five leads to a chassis mounted 
5-pin female RCA plug finishes the job (Fig. 1). 

For all other owners of just the simple RGB video input with no 
separate RGB controls you just follow the schematic (Fig. 2) and make 
the same soldering connections as in the first example. 

We find it is easier to use a 14 or 16 pin DIP socket to solder all four 
transistors on with the 68 ohm the 500 ohm (sic) potentiometers. This 
way you can do a clean installation by drilling three small holes in the 
side of the chassis for mounting the three potentiometers with a good 
two part epoxy so you can have easy adjustments of your RGB output 
with a small screwdriver. Then at the same time you can epoxy the 14 
or 16 pin DIP socket to the inside of the 800 cabinet. 

The total assembly and mounting time is under one hour. 

PARTS LIST 
2N2222 transistors 
68 ohm resistors 
500 ohm potentiometers 
14 or 16 pin DIP socket 
RCA 5 pin chassis mount female plug for appropriate RGB con- 
nection 
Plus some wire. 
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FIFTEFN 


Atari Computer Enthusiasts 
A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 


Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Air- 


mail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


* *President — Robert Browning, 90 W. Myoak Dr., Eugene, OR 97404 
503-689-1513 

Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
503-686-1490 

Secretary — Bruce Ebling, 1501 River Loop #1, Eugene, OR 97404 
503-688-6872 

Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, OR 97404 
503-689-7106. 

Editors— 
Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 503-344-6193 
— Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 503-484-9925 
E.R.A.C.E. (Education SIG Editor)— Nora Young, 105 Hansen Lane, 
Eugene, OR 97404 503-688-1458 


Send 50c stamps or coin ($1 overseas) to the Ness' for the new, 
updated ACE Library List-new in May 84 ! 


Best of ACE books 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 


IYPESEITING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you.have a modem, text editor, and com- 
munícations program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes "on line: 
And it's easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


Editing & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Bulletin Board 
(503) 343-4352 


Only $12 each ($2 extra for Airmail). Available only from: 


George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 


On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives with an ATR 8000 interface, 2- 8" double 
density disk drives, an Epson MX80 printer, a Hayes SmartModem; 
running the ARMUDIC Bulletin Board software written by Frank L. Hu- 
band, 1206 N. Stafford St., Arlington, VA 22201. See the Nov '82 issue 
for complete details. 


SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr '81 to June '83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 

2660 S.W. DeArmond 

Corvallis, OR 97333 
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